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ABSTRACT 


The Ada language has been designated by the Department 
of Defense to replace the computer languages currently in 
use by the various services for tactical computer programs. 
This thesis modifies the Cornell Subset of Ada so that it is 
Suitable for producing a LALR(1l) grammar. Machine generated 
compiling tools such as LEX and YACC, available under the 
UNIX operating system, are then used to implement the scanner 


and the parser for this subset of Ada. 
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i eet. LON 


A. BACKGROUND 

The Aday language has been designated by the Department 
of Defense to replace the computer languages currently in 
use by the various services for tactical computer programs. 
Because of this designation the Ada language will become an 
increasingly important language for computer science sub- 
Specialists in the Navy. For this reason the Ada language 
was chosen as a broad topic for this thesis, and specifically 
to begin the work necessary for the eventual realization of 


an Ada compiler for the Naval Postgraduate School. 


B. APPROACH 

As a first thesis project using the Ada language it was 
decided to utilize the UNIX? compiler generator tools, LEX 
and YACC (described in detail in Section Two), to produce 
a three-address code intermediate language. This approach 


was taken to allow future thesis projects to utilize the 


I amed in honor of Ada Augusta, Lady Lovelace, the 
daughter of the poet, Lord Byron, and Charles Babbage's 
programmer. 


* UNIX is a Trademark/Service Mark of the Bell System, 
and iS an operating system for the PDP-1ll at the Naval 
Postgraduate School. 





"front end" compiler thus produced for adaptations to the 
various computer systems in use at the Naval Postgraduate 
Benool . 

It was discovered that the Ada language grammar is not 
defined in a format which is easily adaptable to machine 
generated compilers, thus necessitating the eventual thrust 
of this thesis, the adapation of the Ada language for 
machine generated compilers. 

| In Section Two the complete Ada grammar is introduced. 
Section Three describes the use of the UNIX tools YACC and 
LEX. Section Four fully describes the Cornell Subset of Ada, 
followed by a description of the Modified Cornell Subset 
(Ada/MCS) in Section Five. Section Six introduces the test 
programs and the results obtained and the conclusions of 


this thesis are presented in Section Seven. 





II. THE COMPLETE ADA GRAMMAR 


Peels LORY AND DESCRIPTION OF ADA 

The language Ada is a direct result of the Department 
of Defense High Order Language Commonality program which 
began in 1975 with the goal of establishing a single high 
order computer programming language appropriate for DOD 
embedded computer systems. The Ada language was designed 
with three major objectives: program reliability and 
Maintenance, a concern for programming as a human activity, 
and efficiency. 

The Ada programming language has strong expressive 
power designed to cover a wide application domain. It is 
a modern algorithmic language designed to satisfy the 
Steelman? requirements. A brief description of the language, 
along with an excellent language summary from the "Reference 
Manual For the Ada Programming Language Proposed Standard 
Document" [Ref. 2] which was received during the final 


Stages of this thesis, is quoted in the following pages. 


3DoD requirements for the common high order language 
were formalized in a series of documents extensively 
reviewed by the Services, industrial organizations, 
universities, and foreign military departments which 
culminated in the Steelman Report to which Ada language 
has been designed. 





An Ada program is composed of one or more program units, 
which can be complied separately. Program units may be 
subprograms (which define executable algorithms), packages 
(which define collections of entities), or tasks (which 
define concurrent computations). Each unit normally 
consists of two parts: a specification, containing the 
information that must be visible to other units, and a 
body, containing the implementation details, which need 
not be visible to other units. 


This distinction of the specification and body, and the 
ability to compile units separately allow a program to 
be designed, written, and tested as a set of largely 
independent software components. 


An Ada program will normally make use of a library of 
program units of general utility. The language provides 
means whereby individual organizations can construct 

their own libraries. To allow accurate control of program 
maintenance, the test of a separately compiled program 
unit must name the library units it requires. 


Program units: 


A subprogram is the basic unit for expressing an algorithm. 
There are two kinds of subprograms: procedures and functions. 
A procedure is the logical counterpart to a series of 
actions. For example, it may read in data, update vari- 
ables, or produce some output. It may have parameters, 

to provide a controlled means of passing information 

between the procedure and the point of call. Pe aunct ton 

is the logical coounterpart of the computation of a value. 

It 1S similar to a procedure, but in addition will return 

a result. 


A package is the basic unit for defining a collection of 
logically related entities. For example, a package can 
be used to define a common pool of data and types, a 
collection of related subprograms, or a set of type 
declarations and associated operations. Portions of a 
package can be hidden from the user, thus allowing access 
only to the logical properties expressed by the package 
specification. 


A task is the basic unit for defining a sequence of actions 
that may be executed in parallel with other similar units. 
Parallel tasks may be implemented on multi-computers, 
multiprocessors, or with interleaved execution of a single 
processor. A task unit may define either a single executing 
task object or a task type defining similar task object. 





Declarations and Statements: 


The body of a program unit generally contains two parts: 

a declarative part, which defines the logical entities to 
be used in the program unit, and a sequence of statements, 
which defines the execution of the program unit. 


The declarative part associates names with declared entities. 
For example, a name may denote a type, a constant, a 
variable, or an exception. A declarative part also intro- 
duces the names and parameters of other nested subprograms, 
packages, and tasks to be used in the program unit. 


The sequence of statements describes a sequence of actions 
that are to be performed. The statements are executed in 
Succession (unless an exit, return, or goto statement, or 
the raising of an exception causes execution to continue 
meom another place). 

An assignment statement changes the value of a variable. 

A procedure call invokes execution of a procedure after 
associating any arguments provided at the call with the 
corresponding formal parameters of the subprogram. 


Case statements and if statements allow the selection of an 
enclosed sequence of statements based on the value of an 
expression or on the value of a condition. 


The basic iterative mechanism in the language is the loop 
Statement. A loop statment specifies that a sequence of 
statements is to be executed repeatedly until an interation 
clause is completed or an exit statment is encountered. 


A block comprises a sequence of statements preceded by the 
déclaration of local entities used by the statements. 


Certain statements are only applicable to tasks. A delay 
statment delays the execution of a task for a specified 
Guration. An entry call is written as a procedure call; 

it specifies that the task issuing the call is ready for a 
rendezvous with another task that has this entry. The 
called task is ready to accept the entry call when its 
execution reaches a corresponding accept statement, which 
specifies the actions then to be performed. After completion 
of the rendezvous, both the calling task and the task having 
the entry may continue their execution in parallel. A 
select statment allows a selective wait for one of several 
alternative rendezvous. Other forms of the select statement 
allow conditional or timed entry calls. 


1Q 





Execution of a program unit may lead to exceptional situa- 
tions in which normal program execution cannot continue. 
For example, an arithmetic computation may exceed the 
maximum allowed value of a number, or an attempt may be 
made to access an array component by uSing an incorrect 
index value. To deal with these situations, the state- 
ments of a program unit can be textually followed by 
exception handlers describing the actions to be taken 

when the exceptional situation arises. Exceptions can 

be raised explicitly by a raise statement. 


Data Types: 


Every object in the language has a type which characterizes 
a set of values and a set of applicable operations. There 
are four classes of types: scalar types (comprising 
enumeration and numeric types), composite types, access 
types, and private types. 


An enumeration type defines an ordered set of distinct 
enumeration literals, for example a list of states or an 
alphabet of characters. The enumeration types BOOLEAN 
and CHARACTER are predefined. 


Numeric types provide a means of performing exact or 
approximate computations. Exact computations use integer 
types, which denote sets of consecutive integers. Approxi- 
mate computations use either fixed point types, with absolute 
Bemna on the error, or floating point types, with relative 
bound on the error. The numeric types INTEGER and DURATION 
are predefined. 


Composite types allow definitions of structured objects 

with related components. The composite types in the language 
provide for arrays and records. An array 1S an object with 
indexed components of the same type. A record is an object 
with named components of possibly different types. 


A record may have distinguished components called discriminants. 
Alternative record structures that depend on the values of 
discriminants can be defined within a record type. 


Access types allow the construction of linked data 
structures created by the execution of allocators. They 
allow several variables of an access type to designate 

the same object, and components of one object to designate 
the same or other objects. Both the elements in such a 
linked data structure and their relation to other elements 
can be altered during program execution. 


Wek 





Private types can be defined in a package that conceals 
irrelevant structural details. Only the logically 
necessary properties (including any discriminants) are 
Made visible to the users of such types. 


The concept of a type is refined by the concept of a 
Subtype, whereby a user can constrain the set of allowed 
values ina type. Subtypes can be used to define subranges 
of scalar types, arrays with a limited set of index values, 
and records and private types with particular discriminant 
values. 


Other Facilities: 


Representation specifications can be used to specify the 
Mapping between data types and features of an underlying 
machine. For example, the user can specify that objects 
of a given type must be represented with a specified 
number of bits, or that the components of a record are to 
be represented in a specified storage layout. Other 
features allow the controlled use of low level, non 
portable, or implementation dependent aspects, including 
the direct insertion of machine code. 


Input ~- output is defined in the language by means of 
predefined library packages. Facilities are provided for 
input - output of values of user-defined as well as of 
predefined types. Standard means of representing values in 
display form are also provided. 
Finally the language provides a powerful means of para- 
meterization of program units, called generic program 
units. The generic parameters can be types and subprograms 
(as well as objects) and so allow general algorithms to 
be applied to all types of a given class. 
B. YACC AND LEX 
Initial research for this thesis began with Ada Syntax 
Summary which is presented in the “Preliminary Ada Reference 
Manual" [Ref. 1]. The initial goal of producing a parse 
table for the complete Ada grammar involved preparation and 


Meaitfication of the syntax to be able to use the PDP-ll 


facilities of Yet Another Compiler-Comiler (YACC) [Ref. 5] 


i 





and LEX [Ref. 7]. YACC is a program which takes the syntactic 
(BNF) grammar rules of the language and generates a program 
which takes as its input the output of a scanner program 
(tokens) and parses a program written in the defined language 
(i.e. Ada). YACC also allows semantic rules to be defined and 
executed for each syntactic construct of the language, thereby 
completing the compilation process. In place of an input 
stream of tokens, YACC can also use the scanner routine gener- 
ated by the LEX program as a subroutine to provide the input 
tokens. 

LEX is a program that takes as its input regular expres- 
Sions defining the characteristics of the raw character 
strings of a language and generates a scanner routine. This 
scanner routine has the capability to eliminate blanks and 
comments and to output groups of characters (tokens) which 
are meaningful to the syntactic rules of the language. 

Executed together LEX and YACC produce a "machine gener- 
ated" compiler whose input is the character string of the 
program to be compiled, and whose output can be either an 
intermediate code (generalized form of execution actions), 

Or a machine executable code. 

Using YACC for the Ada language was a two-step process 
Since the Ada language specification is written in a modified 
Extended Backus-Naur Form (EBNF) and YACC requires the 
language grammar to be expressed in Backus-Naur Form (BNF). 
Therefore, step one was conversion of EBNF to BNF and step two 
waS actually executing the resulting BNF grammar using YACC 


and LEX. 
is 





The most Significant difference between the EBNF and 
BNF forms (other than the fact that EBNF is far more con- 
venient for human reading of a grammar) is that two sets of 
metasymbols must be removed from the EBNF grammar to 
produce an equivalent BNF grammar. These are the square 
brackets [...] meaning zero or one occurences, and the 
brackets {...} meaning zero or more repetitions; also, 
several symbols must be replaced in the EBNF grammar to 
make the productions acceptable to YACC. The replacement 
Meerator, double-colon-equal (::=), must be colon (:). All 
trivial terminals (parentheses, semicolons, commas, etc.) 
must be enclosed in single quotes. All other nonterminals 
Meee be explicitiy indicated to YACC and, finally, the 
head symbol production rule must be the top rule. 

The symbol replacement, explicit nonterminals and head 
symbol rule placement must all be accomplished manually. 
The brackets mentioned previously are automatically removed 
via a conversion process which yields new production rules 
with new nonterminals. These new nonterminals are formed 
by concatenating the original nonterminals with prefixes 
Sem as "fst." and “opt.” [Ref. 8]. The entire conversion 
process, along with the details of executing the resulting 
BNF grammar on YACC are presented in [Ref. 8]. 

Once the complete Ada syntax listed in [Ref. 1] was 


modified to the proper BNF form, the grammar was examined 


14 





in detail for errors. Two errors were found in Appendix E 
of the Preliminary Ada Reference Manual [Ref. 1]. First, 


the token "character<+literal" was used in the production rule: 
enumeration+literal ::= identifier | character<«literal. 


"Character+literal" does not appear on the left hand side 
of any production and was, therefore, changed to 
"“Ccharacter+string". Secondly, in the "accept<+statement" 
rule, in the nonterminal "entry<name", the word "entry" 
should have appeared in italics indicating it was simply 
a syntactic modifier and not part of the token "name". 
After these errors were corrected, the complete Ada grammar 
in appropriate BNF form acceptable to YACC was executed. 
Meer ainput to YACC did not initially include any lexical 
analyzer or action code. 

The sheer length of the resulting BNF form of the Ada 
grammar caused a memory overload on the PDP-ll and YACC 
could not produce a complete parse table. This problem was 
solved by manually producing a list of every nonterminal 
in the full Ada grammar and sorting the list according to 
length (some nonterminals were embedded within others). 
Using the UNIX line editor, each nonterminal was then replaced 
by two letter sequences, 1.e., aa, ab, ac, ... The BNF 
grammar thus produced was acceptable to YACC and required far 
less memory space. YACC then produced a complete parse table 
for the abbreviated version of the full Ada grammar in proper 


BNF form. 
iS 





The resulting parse table was riddled with shift/reduce 
and reduce/reduce conflicts (almost fivehundred total con- 
flicts). After verification that the grammar was an exact 
Guplicate of the syntax summary presented in the "Preliminary 
Ada Reference Manual" [Ref. 1], with the exeption of the two 
minor errors discussed previously, review of this attempted 
parsing of the grammar verified that the Ada language as 
defined in the Preliminary Manual was not LALR(1). With 
the exception of a final execution of the full Ada grammar 
through YACC incorporating the changes made to a subset of 
the grammar (discussed in Section Seven), this completed the 


work on the full Ada grammar. 
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imi UNA TOOLS 


Pee RErACE 

This section of the thesis is intended to familiarize 
the reader with the various language development tools avail- 
able under the UNIX Operating System and to supplement avail- 
able documentation that often glosses over the intricacies 
of language development using UNIX. This section will also 
provide specific guidance to follow-on thesis projects that 
use UNIX for the purposes of automatic compiler generation. 

The compiler process of taking an input program written 
in a source language and producing as output an equivalent 
program in a target language is commonly subdivided into 
five distinct phases: lexical analyis (Scanning), syntax 
analyzing (parsing), semantic analysis, code optimization 
and code generation. The tools available under UNIX con- 
centrate on the automation of only the scanning and parsing 
phases of compilation. Automation of the remaining phases 
has yet to become a reality. 

Although an overview of LEX [Ref. 7] and YACC [Ref. 5] 
was presented in Section Two, it was slanted towards a 
description of these UNIX tools rather than an explanation 
of how they are specifically used to build a compiler. This 


section provides detailed procedures for starting with the 


avy, 





given syntax of a strong subset of Ada (Ada/MCS) and auto- 


matically generating a lexical analyzer and parse tables. 


B. SPECIFICATIONS FOR USING YACC 

Ada/MCS is in Extended Backus-Naur-Form (EBNF). As 
previously mentioned, EBNF is very convenient for human 
description of a grammar but is not acceptable to the YACC 
system. Therefore, the conversion program [{Ref. 8] intro- 
duced in Section Two, which is stored in the Naval Post- 
graduate School Computer Sciences Laboratory under the 
name "“ebnftobnf", must be used to convert the subset in 
EBNF to BNF. The program "“ebnftobnf" is a YACC program 


input and must be processed with the command: 
% yacce ebnftobnf 


mienpercentage symbol is the UNIX prompt symbol. The operator 
is expected to enter an operating system command. The execu- 
tion of the above command produces a file called "y.tab.c" 
that is written in the programming language C [Ref. 9]. 

This C program must be compiled with the YACC library by 


using the following operating system level command: 
sccm aia Cc —1yV 


Mae output of this compilation is the desired EBNF to BNF 
conversion program and is called "a.out". It is recommended 
that "a.out" be changed to a different name to remind the 


user that it is the EBNF to BNF conversion program. The 
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conversion program object code file used throughout this 
thesis is called “ebnf.conv". The preceding steps to 
arrive at a conversion program must only be accomplished 
once. After "ebnf.conv" is formed by the steps out- 
lined above, it may be used to convert any EBNF grammar to 
BNF, once the symbols referred to in Section Two (double- 
colon-equals and trivial terminals) have been properly 
replaced or designated. 

After forming the "ebnf.conv" program, Ada/MCS 
was converted to BNF form using the following UNIX 


operating system command: 
% ebnf.conv <ada.ebnf.sub >Dada.bnf.sub 


The "<" symbol means use the given file name ("ada.ebnf.sub") 
for input and the ">" designates that the output file be 
Called “ada.bnf.sub”. 

After "ada.bnf.sub" has been created, several steps 
must be taken before executing the BNF form of the subset 
with YACC. Using the UNIX line editor ("ed ada.bnf.sub"), 


the command: 


eo a 


was used to remove all blank lines from the file. The ">" 
character is the UNIX line editor prompt and is not entered 
by the user. This decreased the size of the file and was 


a preliminary step in matching up the line numbers of the 
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BNF grammar with the referenced reduction numbers from the 
Smeput of YACC. 

Throughout the Ada grammar, the underscore was used 
extensively to more explicitly describe names (as in 
Gemay type definition). Since the terminals at the Naval 
Postgraduate School are not equipped with the underscore 


character, it was replaced with the character "+". YACC 


tt "W 


uses "«" to indicate the position of the parsing process 
(which token is currently being analyzed) so it was decided 
to change this character, to eliminate confusion, with the 


line editor command: 


> 9/\*/S8//\$9 


The "S$" character was not used for the underscore in the 
Original EBNF form of the grammar since the ebnf to bnf 


conversion program expects or "<«" as name separators 


Seeercs input, and will not accept a "S$". Since all punc- 


tuation must be enclosed in single quotes, a problem 


occurred when the single quote in the production: 
predefined+attribute ::= name ' identifier 


had to be enclosed in a single quotes. The resulting form 


in the EBNF subset became: 
predefined+attri : name ‘'''' id 
This was converted to: 


predefined<attri : name '' '' id 


20 





mreene BNF form. In using YACC, as in C, the backslash ("\") 
is an escape character within the literals and therefore the 


line editor command: 
> ey at NIT | 


must be issued to change the line that "name ‘''' id" 
appeared in to "name 'N'' id". 

The final change to "“ada.bnf.sub" while in the line 
editor was to ensure that the head production appeared as 
the first production in the BNE form of the subset. This 
was accomplished by using the line editor move command ("m") 
to move the appropriate lines to the start of the grammar. 

After completion of the above steps, "ada.bnf.sub" was 
in an acceptable form for YACC, but several steps were still 
required to actually use YACC. The next step in the process 
was to ensure the line numbers for each production in the 
BNF grammar corresponded to the reduction numbers in the 
parse tables in "y.output", the output file obtained from 
a proper execution of YACC. This was most efficiently 
accomplished by switching UNIX line editors to vi [Ref. 6]. 
Vi (visual) is a display oriented interactive text editor 
that was best suited to combine lines in productions that 
did not have a null (empty) option. The BNF version of a 
grammar that is produced via the conversion program dis- 
cussed above left a blank line following every production, 


whether it had a null option or not. The Vi command "J" 
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was used to close-up the first options of every production 
that did not have a null option, so that every production 
option (including null) would have a line number that cor- 
responded to the reduction numbers in each state of the 
parse tables of "y.output". 

The whole purpose of the above procedures was to pro- 
duce a set of production rules acceptable to YACC, and thus 
be able to build a compiler that can process a program in 


Ada to produce either a "yes" or "no" answer as to the 
program's syntactic correctness or to compile it to some 
target language. To accomplish this goal the BNF grammar 
must be put into a UNIX file that fits the YACC input 


Eonrmat: 


token list 


3% 


BNF rules 


ae 
fe\\) 


programs 


The token list was entered into a file called "ada.tokens", 
and a small file was created called "ada.includelex" which 


consisted of two lines 


ae 
oe 


perneclude= tex.yvy.ec (the output of Lex -, 
discussed later). 


Thus, the operating system level command: 
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$ cat ada.tokens ada.bnf.sub ada.includelex>ada.temp 


concatenates the required files into a file called "“ada.temp" 
which can be processed by YACC using the operating system 


level command: 
% yacc -v ada.temp 


The "-v" option produces a verbose output file called 
"vy.output" which is a complete parse table listing. Also 
produced by this command is a file called "y.tab.c" which 
is a compilable C source program. If YACC is executed 
without the verbose option, no "y.output" is created. 

C program statements for processing the grammar into 
a target language as each production is recognized can be 
mixed into the BNF rules using the " = {...}" format to 


enclose each action. For example: 


decl : obj$decl 


=wiepoamnce(" decl \n") 3 } 
| type$decl 
= ort: Ce) dectexn") =): 


These action statements were not added to the grammar until 
after the BNF rules themselves were determined to be 
LALR(1) (no parsing errors). For this thesis, the actions 
that have been added to the grammar only output the par- 
Sing actions as they are accomplished. In follow-on theses 


these actions can be changed to code generation actions. 
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Following the creation of a "y.output" file, the UNIX 
operating system command move ("mv") was used to change 
the file name as each execution of YACC will produce a 
new version of "y.output". At this point, several pages 
of output were saved by editing the new "y.output" and 


using the line editor command: 


>» g/t$/a 


to delete all blank lines. 

The complete process described above to make changes in 
an EBNF grammar and then follow these changes through to 
a final parse table listing was used several times to 
finally ensure that the Ada subset (Ada/MCS) was a LALR(1) 
grammar. The details of this procedure are discussed fully 


in Section Five. 


meeortECIFICATIONS FOR USING LEX 

The YACC program output "y.tab.c" makes a subroutine 
Pato “yylex()". This call is a request for input tokens 
from a scanning routine. This scanner routine is produced 
by the LEX program. As described in Section Two the LEX 
program inputs are regular expressions and C language 
action statements. Appendix A is a listing of "ada.lex", 
the input to the LEX program for Ada/MCS. 


The general format of the LEX input is: 


[definitions] 


° 
Ke) 


ae 
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[rules] 


oe 
oe 


[user subroutines] 


In the definitions section of "ada.lex" are the regular 


expressions in the format of: 
name space regular expression 


For example: 
1 f[a-zA-Z] 
ae 9) 


eet Lh ua) ) 


defines "1" (for letter) as a character from a-z or A-Z, 
Meet tOor digit) as a character 0-9, and "c" (for character) 
as a leter or a digit. 

The specific meanings of all the special characters 
used to form the regular expression are given in the LEX 
manual [{Ref. 7]. 

Also in the definitions section are changes to the 
internal array sizes for the LEX program that override the 
default conditions set by the original program. For the 
Ada language it was necessary to change the array sizes. 

The rules section is in the format: 

lexical definition space C action statement 
Any reserved word can be returned by the LEX scanning rou- 
tines as a separate token value by using the word as a 


lexical definition, instead of returning every word as an 


25 





identifier. This saves the compiler writer from checking 
each identifier with a reserved word table in the parser 

section of the compiler and allows this evaluation to be 

completed in the scanner. 

Rules are included in this section for eliminating 
blanks, tabs, and new lines "(\t\u]", and eliminating 
comments "\-\-[ S\n]«". These rules do not return any 
values to the parser. All other rules return a token 
value via the "return ( );" C statement. 

The single special characters (i.e. =) could have been 
left out of the rules sections and would have been given 
default values. A decision was made to supply token values 
to these characters for easier verification of the correct- 
ness of the tokens returned to the parser by this scanner. 

The scanner program produced by LEX may be run as a 
scanner only when a "main ()" routine is included in the 
user subroutines. This was done as a stand alone test of 
the scanner (see Section Six for results). The separate 
compilation is done with the operating system command 


sequence: 


oo 


lex ada.lex 


oo 


ee leseny-c -ll -IS 


The first command executes the LEX program with 
"ada.lex" as the input file, and produces an output file 


mlex.yy.c" which is a C compilable file. 
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The last command compiles "lex.yy.c" with the LEX 
Meesary routines to form a C object program of the scanner. 


The operating system command: 


° 


eae Quite Gada .prog POoutput 


executes the scanner thus produced, with an Ada language 
test program, and outputs a list of the tokens parsed. 
This command may be repeated for any number of test programs. 
The user subroutine section is not necessary for the 
Scanner to interface with the parser produced by the YACC 
program. The "main()" subroutine in this section is there- 
mere commented out in the C format: "/* ... */", before 
the parser and scanner are combined. 
The parser produced by YACC and the scanner produced 
by LEX may be combined by the following operating system 


command sequence: 


% lex ada.lex 
% yacc ada.temp 


guce v.tab.c ~ly =-11 -15 


oo 


mv a.out ac 


The first command is the same as executing the LEX 
program for a separate compiler. It used "ada.lex" as 
moeut and produces "lex.yy.c”". 

The second command executes YACC with "ada.temp" as 
input and produces "y.tab.c" as output. Again, the "-v" 


for a verbose output is optional. 
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ine thira Command Compiles “y.tab.c" (which contains 
# include Mes ywee. along with the YACC, LEX and UNIX 
operating system libraries. It should be noted that in 
@mger for “y.tab.c" to be compiled properly it had to be 
slightly modified. Since each grammar production became 
part of a huge "switch" statement in the C language, the 
length of the grammar exceeded the option limit (128) in 
the "Switch" statement. The entire "switch" was simply 
divided into four switch statements of equal length and 
combined using the "if then else" construct. The compila- 
tion of "y.tab.c" produces the compiler object program 


"a .out" which in the last command is renamed "ac" (for 
Ada compiler). 


The operating system command: 
jeeae. ada. prog 2OULDUE 


executes the compiler with an Ada language test program. 

This thesis project concludes with a verification of 
the combined actions of the parser and scanner and the out- 
put of this last command is a trace of the scanning and 


parsing actions (see Section Six for results). 


All of the output produced by "ac" is preliminary 
information for verification purposes and can easily be 
deleted by eliminating all the "printf" C commands in the 


"ada.lex" and "ada.bnf.sub" files. 
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ives cORNE EE SUBSET OF ADA 


A. ADA/CS (CORNELL SUBSET) 

The intention of this thesis was to begin the process 
of building a compiler starting with a strong subset of 
Ada and allowing additional capabilities and features of 
the language to be added to this basic building block. This 
approach was taken due to time constraints and the size 
of the Ada language. 

In November of 1979 the Department of Computer Science 
at Cornell University issued Technical Report TR79-395, 
"Ada/CS -- An Instructional Subset of the Programming 
Language Ada" [Ref. 4] which was used as the starting point 
for the language syntax for a machine generated front end 
Sempiler currently under production. 

The designers of Ada were faced with clear injuctions 
against any definitions of subsets of the complete Ada 
programming language. Those restrictions were to ensure 
Standardization of the language and perhaps "to pressure 
the designers to be frugal in their proposals by denying 
them the escape that certain exotic features would be ignored 


mampractical subsets."* 


4 . 

Archer, J., “Ada/CS -- An Instructional Subset of the 
Programming Language Ada", Technical Report TR79-395, 
Computer Science Department, Cornell University. 
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When the design phase of Ada was completed, the 
originators of the Cornell Subset of Ada saw no reason 
to continue the restrictions against defining a subset of 
Ada, and Viewed its development as a necessary instructional 
tool that would allow programmers the freedom to not use 
certain language features of Ada. Another concern of the 
subset writers was that every programming language that is 
generally accepted as viable (and DoD assures us that Ada 
Me accepted) 1s subjected to subsetting. Thus, to 
avoid a myriad of incompatible subsets, the authors of 
Ada/CS formulated their subset as the basis for a small number 
of precisely defined standard subsets. The intent of Ada/Cs 
Beteesotrictly for introductory-level programming instruction 
and the authors felt a strong need to overcome the mostly 
political use of FORTRAN for basic instructional purposes. 

The advantages of a formal subset of Ada are significant; 
especially in relation to compilers. Subset compilers are 
easier and less expensive to develop, faster in operation, 
and executable on smaller systems. In addition, a compiler 
can provide must more effective diagnostics if it knows that 


certain language features will not be used. 


Bee ADA/CS ERRORS 
Ada/CS was defined by removing some constructs entirely 
from the full language and limiting some that remained. 


Regardless, the syntax summary presented in Ada/CS was 
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supposedly a proper subset of the Ada syntax presented in 
"The Preliminary Ada Reference Manual" and all productions 
of the subset were purportedly created by simply removing 
phrases from the reference version. Although this was 
generally the case, the following errors were noted and 
corrected in the Ada/CS specification. 

In the "basic+loop" production, a semi-colon did not 
follow the optional identifier following "END LOOP". There 
were two cases where the zero or one symbol [...] had been 
replaced by the zero or more symbol{...} in the subset. 
These two cases were in the "relation" production, around 
“relational<+operator simple<expression" and in the "body" 
Meeauction around “visibility restriction". The last error 
was another case of losing the italic designation of a 
syntactic modifier for the nonterminal "name" (there was a 
different italics error discussed in Section Two that was 
Gmeeene full Ada grammar). In the production for "type<mark", 
in the nonterminal "type<name", the work "type" should have 
appeared in italics to demonstrate its syntactic modifier 
status. The corrected version of the above errors are in 
Appendix B under "Ada/CS". Note that italicized words are 
Simply eliminated in production rules. 

Although the above errors were a bit tedious to 
discover, they were easily corrected and not considered 
Significant. One major shortcoming of Ada/CS which was very 


Significant from a compiler writer's point of view was the 
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absence of a head production in the grammar. A head production 
is defined as the one grammar rule which all other grammar 
rules will eventually reduce to. The head production rule 
when recognized by the parser, signals that the end of the 
input character stream has been reached and the compliation 

is finished. This problem resulted from the deletion of the 
production "compilation ::= {compilation+unit}" from the 
subset. Whether or not the authors of Ada/CS intended to 
eliminate separate compilation of individual units from 

the subset is not clear. It can be inferred by the omission 
of the "compilation" production that this capability was not 
desired in Ada/CS. But, by this omission, the head production 
was also eliminated. The subset was therefore expanded to 
include the "compilation" start symbol and associated 


productions from the Ada reference manual. 


C. ADA/CS COMPARED TO THE COMPLETE ADA LANGUAGE 

Several features of the complete Ada language were omitted 
in the CS subset. The main features of the complete Ada 
language were discussed in the language summary portion of 
Section Two. The major features that were not included in 
the Cornell Subset are discussed below. 

The facilities for defining tasks and all concurrent 
programming features have been eliminated in the subset. 
Control over variable record representation and access 


variables has been lost. The name overloading or redefinition 
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capability has been discarded along with user-defined generic 
procedures. The last feature omitted was the exception 
mechanism. 

Along with these major construct omissions, further 
compression of the full Ada language was accomplished by 
attaching semantic and syntactic restrictions to the con- 
Merm@cts included in Ada/CS. The principal restrictions 
were imposed on expressions, subprograms, declarations, 
case statements and goto statements. Expressions were 
modified by not allowing array or slice expressions and 
discarding exponentiation from the subset. The subprogram 
construct was modified considerably to greatly simplify 
the language. Subprograms cannot be used to redefine 
SeeracOrs. Also, actual paramenters corresponding to out 
Seger Out formal parameters must represent locations which 
can be legally assigned values of the appropriate type. 
Formal parameter array subscript range values cannot be 
Specified. Procedure side-effects are not allowed in 
expressions; only function subprograms can return values. 
The last subprogram restriction was that keyword parameter 
mechanism were not allowed in Ada/CS. Declarations were 
timited so that no anonymous types were allowed. Case 
statements were slightly modified by demanding that at least 
two choices be specified and requiring a "when others" 


clause if all legal cases are not syntactically guaranteed. 
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The last restriction was allowing the goto statement to 
transfer control forward only. The Ada/CS Technical Report 
[Ref. 4] provides further details of each construct 


feeoeriction. 


PeeeeeeoReEVIATION OF THE SUBSET 

Section Two discussed the difficulties encountered with 
the full Ada grammar, in EBNF form, in relation to available 
memory space on the PDP-1l. Since the final subset used 
in this thesis consisted of approximately half the productions 
of the complete Ada language, the somewhat drastic abbreviation 
mechanism of converting every nonterminal to a two letter 
Sequence was not necessary in the subset. The subset 
productions were therefore abbreviated in a logical manner 
and the resulting BNF form is easily understood. Appendix B 
lists the modified Cornell subset (Ada/MCS) along with a 
listing of "ada.sub.terms" that may be used to clarify any 
abbreviation that might be ambiguous to the reader. 

The details of Ada/MCS are discussed in the next section, 
along with a complete explanation of how Ada/CS was modified 


Eo be LALR(1). 
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V. THE MODIFIED CORNELL SUBSET (ADA/MCS) 


Ae © REEFACE 

As stated in Section Three, YACC requires its input 
grammer to be LALR(1). The original Cornell Subset (Ada/CS) 
was not LALR(1) and when executed with YACC resulted in over 
two-hundred reduce/reduce and shift/reduce conflicts. 
Reference [{ 3] provides a complete explanation of these con- 
Fflicts. In the absence of any user directives to the con- 
trary, YACC invokes two disambiguating rules to deal with 
@enmrlticts. Ina shift/reduce conflict, the default is to 
do the shift. In a reduce/reduce conclict, the default is 
to reduce by the earlier grammer rule in the input sequence. 
Therefore, although it 1s possible for YACC to produce a 
parser even in the presence of some conflicts, it was one of 
the prime goals of this thesis to rewrite the Cornell Sub- 
set of Ada so that it was LALR(1) and therefore the result- 


ing parse table would be free of all conflicts. 


B. CHANGING ADA/CS TO ADA/MCS 

Following the correction of the grammer errors discussed 
in Section Three, various changes to the BNF form of the 
Ada subset were made. Each conflict in the initial parse 
table for Ada/CS was carefully examined to discover the 


source of the conflict and a revision of the appropriate 
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production(s) was attempted so that the language would not 
be restricted by the revision. This was not possible in 
all cases and some revisions caused minor limitations to 
the subset grammar. Several conflicts in the parser auto- 
matically generated by YACC could only be eliminated by 
restricting the Ada grammar. 

This section details each change to the Ada/CS pro- 
duction rules that was made in order to change it to LALR(1l). 
Unless specifically stated, the change was not restrictive 
to the grammar. 

The first change was a separation of the sections of 
Ada/CS that rightfully belonged in the lexical analyzer. 
Reference [ 4] contained section 2.3 through 2.5 that defined 
identifiers, numbers and the character string which were in 
turn deleted from Ada/MCS and defined more appropriately in 
"ada.lex" (see Appendix A). 

After adding the head production "compilation«unit" and 
its associated productions as detailed in Section Three, it 
was determined that several reduce/reduce conflicts were 
being caused by Ada/CS not distinguishing whether an "id" 
was meant to be part of an "enum+lit" or part of a more 
generalized expression or part of "name". The following 


@eeductions illustrate this confusion: 


enum-lit : id | char+«string 


name : id | indexed«comp | selected+comp | predefined+attr 
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lit : num | enumlit | char<string 
per 2 lit | var | subprog<call | aggr 


| qualified+«expr | (expr) 
mae production: 
lit : num | enumlit | char+string 


was allowing "id" to come through the literal production 
eevee into the "primary", “factor”, "term", "expression" 
chain which reduced "id" into expressions without going 
through the "name" production. The conflict thus created 
meant that an "id" which was part of a "enum+lit" was reduced 
into one of the "expression" structures. For example, in 


the "enum<«type<defn": 
PyPE light IS (red, amber, green) ; 


The identifier "red" may first be reduced to a name, where 

in fact it is strictly an enumeration literal. This some- 

what intricate problem was corrected by simply eliminating 

Senum-lit" from the "lit" production, resulting in: 
literal : num | char«string 


The productions: 
pri: lit | aggr | var | subprog+call 
Prcuciiietedecxpr jst(" expr ')' 
var : name opt.+.disc<«range.<. 


name '.' ALL 
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Sere .disecrange.+. : ¢ 
[)"(* dise+range ')' 
Eon Gecd-snamemopte.-.paba~assoc..lst.+,.paracassoc..<. 


| '(' paratassoc fst.+.para+assoc')' 


led to confusion as to which optional null production was 
being parsed when null options (ec) were encountered. For 


example, the subprogram call: 
Preint«report; 


with no parameters could be interpreted by the parser as 
a variable. 
The solution was to eliminate the "opt.«.disc+«range" 


S@emeic Opt.<.para«assoc..lst.«.para«assoc..«." in the 


WW uw 


Beeve productions for "var" and "subprog<+call" so that 
these productions would be parsed only if they began with 
"name '(' " and if there was no trailing parenthesis the 
parsing table would be left with just a "name" which was 
added to the primary production above to yield the follow- 


ing corrected productions which will parse the same language: 


pri: lit | aggr | var | subprog<+call 


| qualified+«expr | '(' expr ')' | name 
var : name '.' ALL 
| name '(' disc<«range ')' 


subprog+call : name '(' para+assoc<«fist.«.para<«assoc. ')' 


A problem occurred with the "expr" production in that if 


no option followed a "rel" in the production: 
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expr : rel fst.AND.rel. 
inelerst.OR-rel, 


Perel £Sst.XOR.rel., 


the parse table did not know which empty option to parse. 


For example, the program segment: 


IF a<b THEN 


HOO. < 


is an example of an expression consisting of only one rela- 
tion which would lead to the compiler not being able to 
determine which option of this production is being reduced. 
The solution was formulated by changing "expr" to 
encompass the logical operator functions in the following 


manner ; 


expr : expr log<op rel 


| rel 


At this point in the conversation from Ada/CS to the 
LALR(1) Ada/MCS, it became apparent that changing the BNF 
form of the grammar was much more difficult than analyzing 
the EBNF form and making changes to it. The procedure 
therefore changed at this point in the thesis to strictly 
working with the EBNF grammar. 

Another conflict was caused by "expr" being a legal 


Bese Of the “aggr" production: 


aggr : '(' comp+assoc {',' comp<assoc } ')' 


By, 





comp+assoc : choice { '|' choice } '=>' expr ; 
pri: lit | aggr | var | subprog<call 


| qualified+expr | '(' expr ')' | name 


An example from the language illustrates this point. The 


expression 
(a<b) 


parses to either an "“aggr" or an "expr" and the real deter- 
mination of the type of language construct desired must be 
accomplished semantically. 

The solution was to eliminate " '(' expr ')' " from the 
Sends production which also contained "“aggr", and let 


mee |6exXpr 6‘)! parse through "“aggr". The difference in 

code generation between an "expr" and an "“aggr" (an array 

or record value) must be decided at the semantic level. 
Another significant ambiguity occurred in Ada/CS due 


to the fact that it allowed so many productions to begin 


with "simple<expr". The production 
range : simple<expr '..' simple<expr 


led to the most of the parsing conflicts and was therefore 
changed by limiting the first "Simple+expr" to an “id" or 
a "lit" as follows: 

range : range«id '..' simple<«expr 


rangecid : id | lit 
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Perhaps the major source of parsing errors in Ada/Cs 


concerning the fact that "name '(' " could be the start of 


an indexed+comp (array), a "var" (part of an array), a 
"subprog+call", or a "qualified+expr". The difference 

was not recognizable in the compiler because all the above 
productions used the same delimiter, i.e., " () ". For 


example, when a subprogram call has parameters as in 
feos (x,y)? 

this call is syntactically the same as an array variable 
antarray (x,y); 


The solution to this delimiter situation was two-fold. 
The first part was to remove "qualified+expr" completely 
from the new grammar and to let the semantic actions tell 


whether " name (expr) was a qualified expression or a 


subprog+call. The second phase of the solution was to make 
"name '(' " a general form for a subprogram, array variable 
or qualified expression. This would make it necessary for 
the parser action statements to differentiate using the 
symbol table and generate errors where new incorrect pos- 
Sibilities could be parsed. This step also allowed the 
productions "para<+assoc" and "actual+para" to be deleted. 


The resulting productions from the above language restric- 


tions follow: 


name : id | subprog<array+var | selected+comp 


| predefined+attri 
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selected<«comp : name '.' id 
predefined<attri : name '''' id 
var : name '.' ALL 


PMueoPeodmarrayevar = name ‘'(' expr { ',' expr } ')' 
In the productions: 


disc«range : [type<«mark RANGE] range 

Bao: s | Compeassoc { '," compeassoc } ‘)' 
comp+assoc : [choice { '|' choice } *=>'] expr 
choice : simple<expr | disc<«range | OTHERS 


Simple<expr : [unary<op] term { adding<op term } 


when an "aggr" was parsed through the "comp~+assoc" and 
"choice" productions, a decision was faced whether to 
parse to a "simple<expr" or a "disc+range". These pro- 
ductions had different optional beginnings and the parser 
could not choose which production it was attempting to 


parse, as can be seen in the following example: 


Ome TABEE := (0224 => 0); 


@ee- CABRE 2= (5..9 => 1.0): 


where the first numbers (0 and 5) are the beginnings of the 
discrete range, but the compiler cannot distinguish until 
the ",.." is reached whether the numbers might be the 
beginnings of simple expressions. 

It was decided to allow only one of the two productions 


to have an optional beginning; therefore, the language 
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was restricted by eliminating the option of a null pro- 


duction at the beginning of the "disc range" production: 
disc+range : type<«mark RANGE range 


In every instance that "AND" or "OR" was encountered, 
a conflict was generated when the parser did not know 
whether to parse to "cond" or "expr". The following pro- 
ductions illustrate the problem that a LALR(1) parser had 
parsing the grammar as written because "AND THEN" or "OR 


ELSE" created a necessity to look ahead two tokens: 


cond : expr { AND THEN expr } 
| expr { OR ELSE expr } 
expr : expr log<+op rel | rel 


log+op : AND | OR | XOR 


Ada/MCS removed this (look ahead by two tokens) conflict 
by changing the "cond" production so that "AND THEN" and 


"OR ELSE" became single tokens: 


cond : expr { AND.THEN expr } 


| expr { OR.ELSE expr } 


This production in turn created an ambiguity since if 
neither "AND.THEN" or "OR.ELSE" were present, the parser 
did not, again, know which empty option to follow. The 
empty options were combined as follows: 

cond : expr { cond+ext } 


cond+ext : AND.THEN expr 


| OR.ELSE expr 
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thus creating a "condition extension" production, which 
did not change or restrict the language. 

Another series of conflicts were created by the parser's 
attempts to decide whether the "choice" option was present 
or not and therefore distinguishing whether "id" and "lit" 
were starting a "choice" or starting an "expr" in the 


Beoductions: 


rangecid : id | lit 
choice : range+«id | disc<range | OTHERS 


comp+assoc : choice { '|' choice } '=>' expr 


These conflicts were solved by creating a restricted 


choice ("restr<«choice") in the "comp<assoc" production as 
follows: 
comp+assoc : restr«choice { '|' choice } '=>' expr 
pete meChOuce. |) )=>' are 


restr«choice : disc+range | OTHERS 


choice : range«id | restr«choice 


thus restricting the grammar by eliminating the option of 
allowing a "Simple+«expr" to start a "choice". Note that 
the second option for "comp<assoc" used "pri" instead of 
"simple<expr". This further restricts Ada/MCS in that a 
unary operator must be put in parentheses when used in the 
"“comp+«assoc" production. This restriction was a valid 
trade-off rather than allowing "comp+«assoc" to begin with 


"Simple<cexpr" which would have caused further complicated 
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changes to Ada/MCS that would considerably lengthen the 


EBNF form of the grammar. 


fe OBSERVATIONS 

The preceding description of the various changes made 
to Ada/CS in order to modify the grammar to be LALR(1) 
are traditional examples of the trade-offs that language 
implementors must face: restricting the grammar or 
lengthening the parse table. Since most compilers have 
specific time constraints that must be met, each restric- 
tion must be evaluated to intrinsically measure the time 
saved by shortening the parse table versus the intended 
Capability of the original language grammar. 

Fach modification that was made to Ada/CS was the final 
result of many experiments in efficiency and the resulting 
Ada/MCS does not lose much capability compared with Ada/cs. 
Appendix B contains the Ada/MCS grammar and Appendix C is 
the conflict-free parse table that was automatically 


created by YACC for Ada/MCS. 
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Vireo ROGRAMS AND RESULTS 


Appendix D contains several test programs, written in 
Ada/MCS, that make use of the majority of the features 
available in the subset. The test programs are not elaborate 
but serve to illustrate that the automatic scanner and 
parser developed for Ada/MCS functions properly. Each program 
illustrates different variations of syntactic constructs from 
Ada/MCS. The output of each compiled Ada/MCS program is an 
easily decipherable scanner-parser action trace. This trace 
is provided in Appendix D for the first four programs only to 
demonstrate the format of the scanner-parser action trace; 
the other syntactic constructs tested are shown without trace 
results. 

Bach test program has two versions: a syntactically correct 
form and an incorrect form. The format of the scanner-parser 


memron trace is: 


token number (from ada.lex) | token 
| reduction 


f reduction  . 


These reductions contine until another token is needed. 
Another token number from ada.lex is issued and the process 
continues until the head production is reached. For example, 


the program excerpt "PROCEDURE test IS" would have a 
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scanner-parser action trace as follows: 
28 | PROCEDURE 
iPOpitmytssrestriction. 


| opt.SEPARATE 


| subprogSnature 
54 | test 

| designator 
io | IS 


) Cotmrarinal spare - 
| opt. RETURN. typeSmark 


| subprog$spec 5 


If a syntax error occurs, a line is skipped in the 
scanner-parser actions trace and YACC issues the statement 
"Syntax error". The error recovery procedure defined in 
the YACC action statements cause the parser to request tokens 
from the scanner until an end of statement character (;) is 
received. The printer prints the message " | Parse error ", 
and the procedure continues to parse beginning with the next 
Statement. Ada.lex, along with deleting comments and 
ignoring blanks, tabs, and newlines, also issues the 
diagnostic "Scanner error : unknown symbol" in every instance 
that an unknown character is encountered. The character is 
then ignored and the parse continues. 


The scanner-parse action traces in Appendix D illustrate 


the above actions. 
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Vio see CONCEUSTONS 


A. DOCUMENTATION INADEQUACIES 

The original intention that ultimately led to this 
thesis was a full implementation of a compiler for the pro- 
gramming language Ada. As is common with most compiler 
writing projects, unforeseen problems were encountered; 
specifically, inadequate documentation of the UNIX system 
automatic compiler generation tools and ambiguities in the 
Ada language. These problems forced a redirection of the 
thesis goals to the task of laying the groundwork for a 
future implementation of Ada through the development of the 
first two steps of the compiler process: the scanner and 
the parser. 

The documentation for YACC and LEX had no specific 
errors, but several weaknesses existed. The documentation 
did not provide enough detailed explanation of LEX or YACC 
Or Specific examples for a first-time user of these tools. 
It also did not include any specific implementation details 
concerning the Naval Postgraduate School PDP-11,450 system. 
For example, the LEX documentation listed two distinct 
methods of specifying character constants: quotation marks 
and backslashes; however, on the NPS system the only method 


implemented was the backslash. 
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Section Three of this thesis was an attempt to alleviate 
these documentation shortcomings by providing a detailed 
description of the use of these UNIX tools for the project 
of writing an Ada compiler (or any compiler). 

Another serious documentation deficiency was the inclu- 
Sion in the UNIX documentation of an introductory description 
of a program called EYACC (Extended Yet Another Compiler- 
Compiler) which purported to expand the memory capability of 
the YACC program that was eventually used for this thesis. 
Due to the size of the Ada grammar, EYACC was originally 
chosen for this thesis to take advantage of its expanded 
memory capabilities. EYACC was discarded at the later stages 
of the thesis because it was discovered that it was only 
partially implemented on the NPS PDP-11/50 system. It would 
produce a parse table listing, but when compiled, the listing 


would yield no output. 


B. FUTURE SYMBOL TABLE IMPLEMENTATION 
The major objective of this thesis was to verify the 
possibility of a machine generated parser and scanner for 
Ada. In the process of revising the Ada grammar to form 
an LALR(1) grammar it was discovered that some ambiguities 
in the language were due to the similarity of the syntactic 
constructs for different semantic actions. For example, 
" array+a(x,y,z) " 1s syntactically similar 


the array variable 


momene subprogram call "cos(x,y)". This problem could be 
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resolved in either of two ways: (1) modify the scanner 


to use a symbol table lookup procedure and return a token 


value for “array+a" or "cos" that is more specific than 
emmemoaentifier (€.g., "array+«id" and "subprog<id"), or (2) 
make the grammar rule recognize the general syntactic form, 
(i.e., "identifier (expression, expression ...)") and use a 
symbol table lookup procedure in the action portion of the 
grammar rule to distinguish between "array<a" and "cos". 

Due to the time constraints of this thesis it was not 
possible to implement a symbol table, consequently it was 
decided to delay the symbol table lookup procedure as 
explained in the second alternative given above. This 
allowed for the verification of the scanner-parser inter- 
face without use of a symbol table. 

This solution was decided upon for the ambiguities 
discovered between array or record names and subprogram 
names, and for the ambiguity between array or record 
parameters and variables. 

When a symbol table is eventually incorporated as a 
follow-on to this thesis, it may be desirable to use a 


symbol table lookup procedure in the scanner, resulting in 


Simpler semantic actions. 


C. INCLUSION OF ADA/MCS IN THE FULL ADA GRAMMAR 

The elimination of the shift/reduce and reduce/reduce 
errors in the Ada/MCS subset discussed in Section Five made 
it desirable to investigate the effect of the Ada/MCS 
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changes on the full Ada grammar. This investigation was 
accomplished by manually changing the abbreviated BNF form 
of the full grammar and processing the modified full 
grammar with YACC. 

This process decreased the parsing errors from 490 


to 286. 


D. SUMMARY 

This thesis was written using the "Preliminary Ada 
Reference Manual" as its primary source of documentation 
and, as has been discussed, it was discovered that Ada is 
not easily implemented by automated compiler generation 
tools. During the final stages of this thesis, the pro- 
posed standard reference manual for Ada was acquired and 
a review of this document revealed that the original 
ambiguities of the language still exist in the proposed 
final version of Ada. 

One conclusion of this thesis is the fact that a pro- 
grammer may use Ada to express his ideas without ambiguity, 
but a reader may find the same program ambiguous. The 
difficulties discussed in Section Five concerning the 
"name ( " dilemma very clearly substantiate this point. 
Variable names are not easily distinguishable by the 
reader without referring to the data declarations section. 
It is acknowledged that the designers of the Ada language 


intended arrays and subprogram calls to look alike, since 


Syl 





it may sometimes be desirable to implement arrays as sub- 
programs (for example, sparse arrays). However, it is felt 
that the readability problem created by this intended 
ambiguity may eventually create maintenance difficulties 
for ongoing software development projects. 

Section Five provides a detailed analysis of the 
changes that were necessary to convert an existing subset 
of Ada to a LALR(1) grammar. In the development process 
of Ada the primary consideration seems to have been an 
attempt to create a language that would impose a structured 
programming environment upon the users, for the enhancement 
of the software engineering process of program development, 
without enough consideration being given to the language 
implementors. Perhaps the strongest conclusion drawn from 
this thesis is that Ada compilers may be more costly and 
take longer to develop than anticipated due to these lan- 
guage ambiguities. This could result in delaying the 
replacement of the current DOD tactical languages in use 


with a standard acceptable Ada language. 
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AEE eNDAX sf 


Ada.lex 


This appendix is a listing of the input file to the 


LEX program and shows the reserved words, and regular ex: 


oressions defining identifiers,s mumbers, = and character 
strings. 

l Ca-zA=Z) 

d (0-9) 

é C{1}4{d}) 

ox me; {1))\(d}) 

dx (Ne@, (d}) 

i C{d}{dx}*) 


idecex ({i}N.{i} {e}) 


1dec men Nis 111))) 


iex ({i}f{e}) 

b My NA C(I} i idd)+(Ned (1b i fd} )*) 
e ve CCN +211} CN=1{7)))) 

charstr N"(INGO=N\176) x\" 

id {]} {ex}* 

num {i}: fob i flidechilidecex}i l{iex} 
Ze 600 

rae) 2000 


5 


v ©) ogi 











of: So°pere’il es if elenenee ah 
,SAve Sevaegeai' BFP genep. hae 


—— 
, iaa@gur 7 ee ee ocr). ek ; 


(3 
: 
iio egs 
ci) hank 
hoe , 
on 
Tipper ia I 
ie 
lhah 16: 4 
elilibiesioit{ep ieee 
idytordhlgeeerage 
1 iatiewtasite . 
eyeohs 


a” 


eee t'} f/eedip4iovrtm 


Ala 300 


4a 2000 

%0 2000 

7 aA 

ALL forget @ew,) JrECnOs;printt(™ \n");return (1)? } 
AND momatrc ¢.,  ),ECHOForintf(" \n")rreturn(e)? } 
ARRAY forvectc- 5 6 JrECHO;oprintt(* \n");return(3)7} 
ASSERT fomimer © 4,8 ()7,ECHO;orintft(” Nn" )ereturn (4); } 
BEGIN foremenc s0) ee) ,ECHO;orint fC" \n")ereturn(S) 7} 
BODY Homtmtac 6 ,  JFECHOFOrimtf(" \n")ereturn(6);} 
CASE Wemracr« 7), “Je ECHOs;printt(” \n")-return(/7);} 
CONSTANT foovmtf Gon, se Jr eGae,printt(” \a"*);return(8)7} 
ELoE Vomit? ey SJ) FECHOs,Oorintf(™ \n");return(9);} 
ees IF Vomimnitre hme) ,ECHOrorintt(: \n")ereturn(10)- } 
END focumcr@ur) ;  JreEChOsorintt(” \n");return(11);} 
EXIT Mommmer( fe 1. J), ECHO; print f(" \n")-return(l2)70 
FOR Nematic oe, Je ECh@,orimtt(* Nacdsereturn(13)7} 
FUNCTION iomminGn.G tee e,eECHU,;DrIMntt(” \n*);return (14); } 
GOTO Woe ocro, “)rECHO7orintf(" \n“);return(15)7} 
IF {printt("16 § "JZECHOsorinte fC" N\n"“)ereturn(16);} 
IN ‘oetmmoe@et? =, "),ECHOr,printt(” \n")-return(17)7} 
IS iomineme ne | “)r,ECHOs;printf("” \n"*)peeturn(18);} 
LOOP {forint t#("19 $ “JZECHOs print tC” \n“)e return (19)7} 
MOD {printf("20 $ ")FECHOsprintt(”® N\n*)ereturn(20);} 
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NOT femme t © cl, le EERO; print f(" \n")ereturnlel);} 


NULL VOiminci ce we oveehOnrprintt(” \n*)sereturn(ec);} 

OF ToimemGe ss, Jere CHOs,orintf(" \n°)Jsreturn(e3);} 

OR forvmacr (tes , “JFECHOsprintf("” \n"); meturn( 24) >} 
OTHERS Vomit coe se ee chO,orintf(" \m") greturn(es) +} 
OUT Momo Caco, JreCHOs;printf(* \n")sreturn(26); } 
PACKAGE VomimctGucin em, ECHOs;orintf(” \n° Jsereturn(e/7); } 
PROCEDURE {printf("28 | “JFECHOs print fC" \n")ereturn(28) 7} 
RANGE fominwiGrces, ome edO,printt(’ \n")ereturn(e9):} 
RECORD Voetmetc 50, JeECHO;orintf(” \n"*)eretura(30);a 
Seo FRICTED fomvmte tc lSlese Je,EGHOs;printf(" \a");return(31);} 
RETURN terme Seey) JrbenOs,primet(™ Na" )sereturnl3e):} 
BeveERSE Veit 55 eave eChO,printt(” \n");return(33);7} 
SEPARATE Vorumtt¢ s4 J), ECHO;orintt(” \n");7 return( 34); } 
THEN Vaginic ee 55 | sJeeenhOs; print f(™ Wor eeurncss 1) 
irre Pomencn C560, Sse CHO,;,orintf(™ \nv);sreturn( 56) ¢ } 
USE Momenmetcso? , DrECHOs,orintf(" \n")ereturn (3/7); } 
WHEN VormumtttG 57, J,ECHO,orintt?(™ \n")sreturn(39) 7} 
WHILE Lome s0 , rec HOsorimntt(™ \na*); return(50) >} 
XOR TominctGuot | «inecetO,orintt(" \n")sreturn(5i)7} 
AND.THEN {orintf("Se | “JrzECHOs printf (" \n"“)ereturn(S52)7} 
BR sELSE tomo 55 4 ~),ECHO;,printf(® \n")-, re@turn(53); } 
aN? focumtrc 70e, “Jr,ECHOs;orinte fC" \n");return(70)7} 

hee \ « Vomaet( sim ),eEHOPorintf("” \n")sreturn(71)7)} 


Sys) 





{orintf ("72 


VOnvmct (75 
Took ak ah 
Meritt «fo 
{forint f("76 


{forintf("77 


Horintf(" 76 
forynct( "79 
forint fc 60 
{printf ("81 
forint fC" 382 
worrntt( "83 
{forint f(*%84 
Herintt ("85 
{printf ("86 
toranmt£ ("67 
Wermamer( 86 
ferigatt( 69 
femiat f (90 
ele Woe 1) Caen! 
woryat tt ec 


{orintf("93 


{printf ("S54 


forint? ("S55 


re eeiniO or ymt t (~ 
Poveeno, Orimt t (~ 
Jee nhOr, Orin t \” 
rcene,orimat f\. 
reer y print. t 
Piven, ort tc 
")FECHOsprintf(" 
oeenOsOrimet |” 
meetOr,orintt(" 
Merc ChOrorintt(" 
ee elnO oie wm tet « 
ee CnO Or iimntt ©” 
Precio; orintt (” 
TV eeAD,orint tf (” 
PPV eCtIOc,OoriMe tT. 
eens oOrymt tC 
J,eenO,rorimt + (~ 
Prcene sprint tC" 
mreenOz,orint 1 
Piet O,or 1 mt t C" 
Pe Ben O, OCI nt fC. 
eT PeeHOsorint tl” 
eee ea or imc t ( 


' ")ZECHOsprint f 


36 


\n")szreturn(72);9 


Mie rpreturm(? 5), ? 
\a")e return (74) 7} 
Noe Jwerurn (75. > } 
\n");return(76);7} 


\a");ereturn(/77)37} 


Na J pretumen(/78)72 
\n")rreturn(79) 5} 
\n")ereturn(80);} 
\n")ereturn(81);)} 
\n");rreturn(8e);} 
\n");return(83);} 
\n")preturn(84);} 
\n")ereturn(85) 7} 
\n")preturn(86);0 
Nai Jr return( 37) 7} 
\n"Jsreturn(&8);} 
Neco met urmco? ) rt 
\n")sreturn(90);} 
Nimo ws Getuen( 91 )G > 
Na" )ereturn(92);} 


\n")sreturn(93) 7} 


"'A\n");return(54) 7} 


Ce 


\n")s;return(55);70 





“\-(TS\n] * ; /xdelete comments*/ 
{charstr} foimumetG Som,  ),ecHO,orinef(” \n"); rbeturn(56);>} 
{ \tN\n]J ; /xiqnore blanks,;tabsnewlines/ 


%% 


/x 

main() { 
Int nextoken; 
nextoken = 1; 
while (nextoken i= 0){ 


nextoken = yylex(); 


} 


xf 


Vf 








i¢{a®)eeuageal*ar "Ry 


4 
isAi foot Prt eereie” 


/ 


éf 
wis 
io 32 nein eens of Mie 
hi tenles = agile ine on 


DPrPENDI XxX B 


Ada/MCS 


the appendix is a listing of the four files that de- 


fine Ada/MCS. 


Ada.etermsemean 


This portion of Appendix 8 is simply 


3 


listing 


of 


at } the abbreviations used in forming the sudset Ada/MCS. 


This file is not an input to YACC. 


aggr saggregate 
approx stapproximate 
assoc tassociation 
attri sattribute 
char scharacter 
chars i:characters 
comp scomponent 
cond :condition 
constr iconstraint 
deci :declaration 
defn sdefinition 
disc :discrete 


enum senumeration 


Site) 


= 


A 
















a0%2 of B si begeee to, eet ageg ee 


S17? AF C8ew ends dvecce 


a 


38. bb ues Ce ton at hi 
7 


ote 

+ om /pwe 
stu t 
_ 


- a 


Aci sersee 


e79t28% 
’ 
ned 
Ales tong 
vetvevets¢ 


rhe sin 


2exponent 
sexpression 


sextention 


sidentifier 


siteration 


smultiplying 


soperator 
sparameter 
sprimary 
sprogram 
srelation 
relational 
srestricted 
;sequence 
sspecification 
~Statement 


*Statements 


29 


ot tate i sige 


ee 






vn 
mal eeg 
ol pei ehe 
cavateqeen 


Ce Ur 
Ab’ ¢eabl (age 
ieee be Fe: 


einen ee Very 





tvariable 


isibility 
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Ada.etokens Ada/MCS Ada.includelex 


These three files are concatenated to form the inout 
more YACC. This input file provides YACC with the token 
values that will be returned from the scanner, the BNF gram 


mar rules, and the actions to be performed by the parser. 


Atoken * Be! 0 
Atoken ree ] 
Ztoken AND 2 
Atoken ARRAY 3 
Atoken ASSERT 4 
Atoken BEGIN 5 
Atoken BODY 6 
ZAtoken CASE i 
ZAtoken CONSTANT 8 
ztoken ELSE 9 
Ztoken ERSTE 10 
Atoken END 11 
Ztoken a be 
Atoken FOR 13 
Atoken FUNCTION 14 
Atoken GOTO Be: 
Atoken Le 16 
“token IN 17 
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zAtoken 
Atoken 
Ztoken 
Atoken 
Atoken 
Atoken 
~Ztoken 
Atoken 
Atoken 
Ztoken 
ZAtoken 
Atoken 
Atoken 
atoken 
Atoken 
Atoken 
mAtoken 
aZtoken 
Atoken 
4token 
Atoken 
“token 
token 


Atoken 


IS 

LOOP 

MOD 

NOT 

NULL 

OF 

OR 
OTHERS 
OUT 
PACKAGE 
PROCEDURE 
RANGE 
RECORD 
Riese G 1c 
RETURN 
REVERSE 
SEPARATE 
THEN 

iY PE 

USE 

WHEN 
WHILE 
XOR 


AND.THEN 


18 
19 
20 
2} 
ee 
23 
24 
oS 
26 
fda 
28 
29 
30 
31 
Be 
33 
34 
Le. 
36 
Ly 
SS, 
50 
51 


aya 
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e* Sugary 
‘f . Tue 
is jh Pr 20% 
22) 133064 

Jane» 

Oe ee 

OST STetean 
VALET ES 

3643y 5s 

)LARASEZ 

et apes 
sev 0 

Ju 

1 PG 

1a 

ag* 


‘ent, Ome 


Ztoken 
ztoken 
Zztoken 
zAtoken 
zZAtoken 
Ztoken 
atoken 
ztoken 
Ztoken 
Ztoken 
Ztoken 
Ztoken 
”Atoken 
ztoken 
ztoken 
zAtoken 
Ztoken 
Zztoken 
Ztoken 
token 
zAtoken 
Atoken 
Atoken 


Ztoken 


GR ELSE 
id 
num 


charS$str 


Pye 
54 
a5 
56 
70 
ey 
Ve 
73 
74 
i 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 


89 
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ztoken ae Ae 
Ztoken ieee 
Ztoken "ite 
Ztoken ve! 
y ay 


compilationgsunit: 
uNitSbody 

Ss) (Ueveaiianeal (a 
opt.evissrestriction.: 

=I omit t er 


' visSrestriction 


{print f(" 
mE OEPARATE.: 


{printf " 


pr oOecPARATE 


= {printf (" 


90 


Ji 


oe 


De 


GPtavisoresctriction. 


decl: obj idec| 
= {printf(" 4 
; typesdec| 
= {printf (” } 
menor, = {print fl" 


opt.CONSTANT.: 
= {printf(" 


+ CONSTANT 


compilationSunit\n");} ; 


opt. visSrestrictione\n")3} 


optevissrestrictione\n");:} 


\n")7} 


OD et eoe tana! 6s 


\n")7} 3 


Oot oer ORAL. 


\n");} 


dec} 


dec} \n");} 


| Parse error\n")3} ; 


opt CONSTANT. \n")7} 
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opt SEPARATE. 


® 
of 


















o 


mnie rigre> 


Se v« 7oe 
;. , 3 re) 
” 7¢ 


ve 


fora Soorge te. Jas 


"18 twice). s 


7 tome iapant . 

"7 tte tee > 
ates 944 Seendab 
")¢se}eah® | 
ait 4.718 
“Serneses & 


¢ auacag. i 


" §Ftn sae. «& 
‘yebag? & 
igvehlegvi. 

19h ens e 


42 “8” 998%@ 


tee 





is@)e@8 £ 


all 





(oma t < OOP eC ONSTANT. \n") 7) 3 
SotebDe@xpr.es 


Cope ©"  ORBtedcoe@xOrme NM Je} 


: == exor 


loninGee 7), OOt.beexor NNO) 2 


objidec!: id$list POO CGCONOTANI. tyoe opt.5.expr. 


{printf (" | obj$decl \n")7} 3 


Mates be ide: 


femimets: 5 'St«be1ds \n") 7} 
; fee chei1ds ier has id 


Gea 1 dew NOe eh 2 


= dorintf(" 


PObi}sts id fst.S.id. 


{orintt(" pe iaGanl st oN J} e 
type: typeimark 


type \n")i)} 3 


= {printf (" 
typeidefn: enumitypeidefn 
= {printf(" | typeSdefn \n")7} 
; intétypesidefn 
= {printf (" $: typeSdefn \n")7} 
» arrayitypesSdefn 
=uor inet. | tyoéesdefm \ni ); } 
+ record$typesdefn 
= {printf(" {| typeSdefn \n")ed 7 


typeimark: name 
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=o rit tT © 
constr: rangesconstr 


= {printf (" 


typeSimark \n");} 


constr \n");9 ; 


myoetoceci: TYPE id IS typesidefn ‘';' 


= {orintf(" 
rangesconstr: RANGE range 


{printf (" 


typefdecl \n");} 


rangeSconstr \n");} 


range: rangeSid ‘'..' simpletexpr 


hi 


{printf(" 


rangeSid: id 


{print f(" 
mo lit 


forint tG" 


fst.enum$lit.: 


forant t¢~ 


{printf (" 


enum$typeidefns '(! enumslit 


{printf (" 


enum$lit: id 


{printf (" 
' charSstr 
= {printf (" 


int3dtypeSdefn: rangeSiconstr 


range \n");90 ; 


rangeSid \n");} 


rangeSid \n");} 


fst.enumSlit. \n")7} 
i fst.eenumSlit. enumslit 
fst.enumslit. \n")7} 


le fst.enum$lit. 


a 


e 
| 


g 


se 


enumStypeSidefn \n")7} 3 


enumSlit \na");} 


enumSlit \n");9 
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fogiuact(” 


fst mre tT MNGeX . 


fOniwnt f(s 


: fst.$e-index. v 


= {printf (" 


arrayStypesdefn: ARRAY '('! 
typesmark 

= {printf(" 
index: disciSrange 

= {printft(" 


; tyoesmark 
= {printf(" 
disc$range: typesmark 


= {printf(" 


BetwDeCOMPSASSOC.: 


RANGE 


intstypeSdefn \n")7} 3; 


fSteccindex. N\A 2st 


index 


index 


fSt<edaimGex.« NA); tas 


vy" 


TSC. 0. 1NOexX. 


arrayStypeS$defn \n");} 


index \n")3} 


index \n")3} 3 


range 


disc$range \n");} ; 


=ortntrc-  } fSt.compsassoc. \ni*) 3} 
+ fsteS3.compS$assoc. ‘',y' compsassoc 
= {printf(" ¢ fst.5d.compSassoc. \n");} 
mars '(' compsassoc fst.5.compsassoc. an 
=etOrmintt(” « aggr \m")7} ; 
fst.5.choice.: 
= {orintf(" {| fst.S.choice. \n");} 
Pousti se.cnolce. ':' choice 
= {orintet(” + fSteS.choicee \n")F} ; 
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Semmerrst . 5. Choice. -De@XOLe’ 


Get De ime fC" POO Cast so. chOlce..).6XDP « 
rm (7 } 
; fsteS.choice. ‘'=>' expr 
= {printf(” } Opt. St.o7eholces.. DexOr. 
Nim dst 7 
comp$assoc: restrichoice fst.$.choice. ‘=>' exor 
= {orintf(" | comp$assoce \n");7} 


MOGI BOD tess 1St.h.FhOl1Ce ws 56O@XOF « 
= {orintf(" ; comp$assoc \n")7} ; 


restrichoice: disc$range 


= {printf(" {| restrSchoice \n")7} 
TeOtHERS 
= {printf(" | restr$choice \n")7} ; 
choice: rangeSid 
=eCoChimte c acmo1ce Nn: ) 2 } 


' restrichoice 


{orintf(”™ } choice \n")7}) ; 


recordStypeidefn: RECORD como$list END RECORD 
= {printf(" | record$itypeSdefn \n")e} 7 
fst.obj$decl|.: 
=e int ( om fSts.Obj;sdecl!. \n")7} 
+ fst.objidec!l. objSdec! 


= {printf(" Petst.obiSdec!. Nn J+) 3 


68 





compsSlist: fst.eobdjS3decl. 


forintftC" 


name: id 


{printf(" 


subprogSarraysvar 


= {printf Cc" 


selectedicomp 
= torintt( 


' opredefinedSattri 


= {printf (" 5 
selectedScomp: name '‘.' id 

= {printf("™ | 
oredefined$attri: mame ‘N\*' j 

ssorimtf(" 4 
its Num 

= TiOGiattC° 93. 3) 

; charSstr 

= tpramtft" 4 | 
vars name '.* ALL 

seMoOrimef(” 3} 


fst wie exor. : 


Lorine t 6 


mtSt.s.exor.s ‘7! 


= {printf (" 


exor 


comosltist N\n")s} 3 


name \n");} 


name \n");} 
Naw) > } 


name 


name \n")3} ; 


selected$como \n");} 


e| 


predefinedSattri 
it NA 3} 

it \n")s) 3 

var \n")3) 3 
\n") 7} 


fst ob.e@xDin. 


fsteS.expre \n")7} 
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subprogsSarrayivar: 


opt.erelalSop.simp] 


Bm” (7 } 


' rpelalSop 


ma eh 2 


opt.NOT.: 


+ NOT 


ereconstr.s 


1 constr 


rel: simolesexor 


' simolese 


; simoleSe 


exprs expr logtop 


mame 9 *(* expr fst.S.exor. ')' 
{orintf(" | subprogSarraySvar \n")7} ; 
eSexor.: 

Homme |. opt.relalSop.simoleSexor. 


sSimoleSexor 

{print f(" ' opt.relalSoo.simolesexpr. 
(oper = 7 OptsNOT. \m");} 
{orintf(" TaOOt eNOl. Nin) Ss 2 


foOraumtt ("| optsconstnm.s \n")7)} 


fogimtt. | oot.comstpre \n")70 ; 


oot.relalSop.simpletexor. 


{orintf("™ it rel \n")27} 
xor opt.NOT. IN range 
{printf (® ; rel N\n")7} 
xor oot.eNOT. IN typeSmark opt.constr. 
{orintf("™ i rel \n")a) 3 
re] 
fomimett- 4 exOor Nao det 
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re | 


opt -eunarysoo.: 


unarySop 


voeime tl" 


Comint t<(” 


{printf (" 


Poeteaddinotop.term.$ 


simplesexprs: 


fst.emultSoo.fac. 


terms: fac 


mec: pri 


ora: ifiit 


{printf (" 


fsteadding$op.tern. 


{forint fC 


opt.eunarysop. 


{printf(” 


Conimtar 


Eat .multSop.fac. 


{printf (" 


fst.multSoo.fac. 


aggr 


{printf(" 


{forint f(" 


forint ft” 


{orintf(" 


ExORe Ni dG 


oopt.eunarysoo. 


opt.unarySop. 


fst.addingSoo.term. 


addingSop 


fsteaddingSop.term. 


term 


multSop 


term 


Nae) 2? 


MAL) 2 ee 


fst.~addingsSop.term. 


simoleSexor \n")7} 3 


fStemul too.trac~. \n") 7} 


fac 


fst.emur1esbopefac. \n"*);,o 


term vm Jy 


fac \n")7} 


pry 


pri 
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\n")3} 


\n")7} 
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¢ 


e 
c 


\n")7} 


a eee ie 3 


e 
a 
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logSop: 


Pelalisoo: 


addingSop: 


name 


var 


AND 


OR 


XOR 


‘yy! 


torane t(" 


{orint fC" 


forint 


{print f(" 


torint 7 (% 


fomimt fc 


{print fC" 


VO miter Un 


{printf(" 


{orintf(" 


{printf C" 


{orintf(" 


ions 


ori 


NA es 


Nae dst ¢ 


logsiop.) Nin); } 


+ logsop \n")7} 


{| logsSop \n")7} 3 


: relalsSopo 


relalS$oo 


: relalSop 


; relaltoo 


; RPelalSop 


relalSoo 


' addingSop 


te 


\n")7} 


\n")7} 


Na) ¢ } 


\n")7} 


Na") 73 


\n") 3} 


\n") 70 


(\t%ar ‘Wee ft 


. 
> 


= : : s _ - 
i (eb%ad tage, ete 


(si"nf aeGeg? 


jLi*e? gobo 


itt". eeaies! 


* (tr “-€ lb fe? 


"re ardie les 


Jriee Be 


° . 
| ., 8 ae 


oe Ole ae 


“Veevlong © 



















7 7 


. 
7 


- = 


“Leaneant, © 
")i3riea) © 


“tmAiqeat @ | 





“itaniee? © 


"97.4an%44)) @ 


“> }4e(407) & 


“)vaniegi a 


“i vonage 


unarysSop: 


multdoo: 


i 


; NOT 


+ MOD 


mete stmt. : 


seqhofistmts: 


stmt: 


am ¢Stestmt. 


simole$stmt 


tS tis 


Vom wme t (” 


formant tC" 


{printf(" 


{orintf(" 


{orintf(" 


wOmvm: tC 


forint tC ~ 


{printf(" 


{printf 


stmt 


{printf (" 


stmt. 


{print tC" 


{orintf(" 


addingsop 


addingtop 


unarysop 


unarysop 


unarysoo 


multSoo 


multtopo 


multSop 


fstestmt. 


fst.Stmt . 


seaqastofistmts 


stmt 


(ES 


Nap 


Vp 0-72 5 


No)? 


NG vee 


Niles 


Nal) poy 


Nae oer? 


\n")7} 3 


\n")7} 


Mwah oe 


Na) 3s 


\n");9 


e 
? 


wy iid oncinbet 


144 “av 





7efvAgry 


cad, Vergy: 
























° > 
e 

2 
- , 


or 


‘niet «/ 
*“lragateal ©. 
“pinbeah = 


*itrepae) = © 


*ses~ievet & 


ibuntage & 


rittronal & 
tera » O0Re OP? v 
"i141 GFetnl @ 
i 
t©49.009 tes 
16 PAE ThA Qe 


raedee! 


“b*9ate@r 2 


simoleSstmt: 


compoundsstmt 


= {printf (* 


<< id ‘'>>* stmt 


= {print f(" 


eee Or 


= (orint? ¢: 
suborogicalldstmt 

= {printf(" 
exitSstmt 

= {printf("™ 
returnsSstmt 

= {printf (" 
gotoSstmt 

= {printf(" 


assertistmt 


{or imet (— 


UL Cee; * 


{orintf Cc" 


compoundsstmt: if$stmt 


= {printf(" 
casesstmt 
= {orint f(* 


looosSstmt 


assignmentistmt 


stmt \n");} 


stmt \n")7} 


simolesstmt 


simpledsstmt 


simoleSstmt 


simoleSstmt 


simpleSstmt 


simplesSstmt 


simoleSstmt 


comooundsstmt 


compoundsstmt 
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"3s ' = {printf ("Parse error\n")7} 3 


\n")7} 


NA Do 


\n")3} 


\n");0 


Waele: 


NA Oi 4 


\n")e} 


\n")7} 





= {printf(" compoundsstmt \n")7} 7 


assignment$stmt: var ‘3s exon . 15% 


{orinef(”™ | assignmentSstmt \n")7} 


+; Name ‘ss expr 


{printf(" >; assignment$stmt \n")7} ; 


subprogicallSstmt: name ‘;' 


{orintf(" ; subprog$calliSstmt \n")7} 3 
opt.eexpores 


{print f(" fimo pt sexor. \n) st 


; expr 


{printf("™ § opteexpr.e. \n")G} 3 
returnSstmt: RETURN opt.exopr. '‘'7' 

= {printf(" {| ereturn3stmt A\n")5} 5F 
Meee lLolF..cond.THEN.seqfSofiSstmts.: 

= forum? (” 
fst ELSIF .cond.THEN.seqtofistmts. \n")7} 

mentst.beolrfecond.|HEN.seaSofSstmts. Bis Lr cond 

THEN seqtof$stmts 

= Cogiatt C 
fst ELSIF .cond.THEN.seqSofistmts. \n")7} 7 
opt. ELSE.seqsSofSstmts.: 

= (Casts | toe ae (Cm ; opt ELSE.seqiofistmts. 
perm ) 7 } 


; ELSE seqtofSstmts 


75 





= toerne tC" ‘ Soteeeoe.seacoorsstmts. 


meds} 
ifSstmt: i cond THEN seqsofistmts 
fst ELSIF .cond.THEN.seqSofSstmts. opt ELSE.seqsSofistmts. 
mo fF ‘';' 

coc rmtt ©. 4. ifsstmt \n")7} 7 
fst.condSext.: 

= {orintef(" 1 fstecondSext. \n");} 


i fstecond$ext. cond$ext 


= {printf(" 3 fstecond$ext. \n")3} 3 


moma. expr fst.econdiext. 


(eevee. 3 “cond ~\n“)7} 7 
cond$Sext: AND.THEN exor 
= {orintf("™ {| cond$ext \n")3} 
: ORLELSE exor 
= {printf(" + cond$ext \n")7} 3 
fst WHEN.choice..lst.S.choice..3.seqsofistmts.: 
= foe i mitat C- ' 


met eNREN.,choice..-lst.S.choice.-S.seaqasofsstmtse \n“);5} 


fst WHEN.choice..ist.S.choice..5.seqsofistmts. 
WHEN choice fst.$.choice. Gao seagofSstmts 
= {printf (" } 


fst WHEN. choice.-lst.S-choice..S.seqsofistmts. Na Js) 3 


case$stmt:; CASE exor OF 
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TSteWHEN.choice..lst.3.choice.-S.seqsofsstmts. 


pes 
, 


ome wm t fe 


opteiterSspec.: 


foimsmitt ©" 
; iterSspec 

= {orintf(" 
opt.iterSsoec. 


loopsstmt: 


{orintf(" 


mmce1 Ge: 


= {printf ("™ 


= ormimt t (- 
basic$loop: LOOP 
= {printf (" 
opt.REVERSE.: 
= {orintt(" 
' REVERSE 


= {orintf(" 


iterSspec: FOR loops$para 
= tor tmit t (* 
+ WHILE cond 
= {printf(" 
loop$para: id 


seasofistmts 


END 
case$stmt N\n")3} 7 
Nao oS 


opteiter$spec. 


opt.-iterSsoec. \n")7} 


basicSloopo 


loopsstmt \n")5)  ¢ 


opteid. \n")7} 


opteid. \n")e} 7 


END BOUR = Noot.1d. 's ' 


BaSichlogp s\n )7 ho: 


OOtemevence. Nm ) +t 


Oot ~REVERSE. Na’ )s) 3 
opt REVERSE. discirange 
iterSspec \n");7} 


iterSspec \n");}) 7 


at 


° 
g 





Comite t (” 


oot WHEN.cond.: 


loop$para \n")s} ; 


Opinii Gs 1 ODtaNhEN.cond.,  \n");} 
+ WHEN cond 

= {printf(" {| opt.WHEN.cond. \n")7} 3 
memmeesemts EXIT opteid. opt.WHEN.cond. ';' 

= {printf("™ ¢ exitSstmt \n")7} ¢ 
Boeosestmt: GOTO id ‘3! 

=sMOrvottt¢.  ,» Ggotosstmt \n°)7} 7 
assert$stmt: ASSERT cond 

= torimtf(” | ass@rtSstmt \n")7} ; 
opt.useiclause.: 

= {printf(" ¢ opt.useiclause. \n")7} 


' useSclause 


= (printf(" 
fst.decl.: 
= {printf (" 
+ fst.deci. dec} 
= Norint fC" 
met ».Dody.: 
= {printf (" 
1 fst.body. body 


= {printf (" 


declarativeSpart: 


opt.useisclause. 


opt.useSclause. \n")7} 7 


‘stisdeci.  \n")s} 
fStyeGecie. N\A )7). 7 
fst.cody.. Nn’); 
fst.body., Nn" );)} + 
fst.decl. fst.body. 
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Seecinantt ic. | @@clarativeSpart \m");) ; 
body: ooptevisisbrestriction. unitSoody 
= {orint t(" PeEGodye ee Nm). )): 


unit$body: sudprog$body 


=—sqorimtt(” 4; unitSbody \n");} 
1 modSspec 
=O nmts (© sa, UM tdoody Nn"); >} 
: modSbody 
= {printf(" t unitSbody \n")7} 3 


Spt.etormalSpart.: 
=n mitt (es. 6. Oot. formalsoart. \n");7} 
| formalspart 
= {printf(" { opt.formalSpart. \n")7} ; 
opt RETURN. typeSmark.: 
= {printf(" { opt RETURN.typeSmark. \n")7} 
; RETURN typeSmark 
SECrRi@tics Opt erEhURNStypesmark. \n')7} - 
SUbprogSspec: subproginature designator oept.eformalSpoart. 
opt RETURN. tyoeSmark. 
= {orintf(" ¢ Subprogdspec \n")e} ; 
subprog$nature: FUNCTION 
= {printf("” $: subprogSnature \n")7} 
+ PROCEDURE 


= ieife i inie i Ce | Ssubprog$nature \n")7} 3 
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@esvonator: id 


motes .parasdec!.: 


{orinef(" | designator \n")70 ; 


{orint f(" meetSt.S<Darasdec!. \n’)7} 


metSt.s.parasagec|!. ‘,* parasdec! 


story nt ¢ Ce penStabDeooracdec!s Naw) s} 3 


formalSeart: ‘'(€' parasdec! fst.d.parasdecl!,. i 


= {printf (" :+ formalSpart \n")7}) 3 


para$idecl: iddSlist ee mode typeSmark opt.$.expr. 


mote iN.: 


{orintf(" 


mode: opt.IN. 


(omine tC" ; parasdec| \n")7) 3 


OptesIlIN. \nt);> 


{printf(" SOD LNG NTO ey) 


; OUT 
; IN QUT ; 
Subprogtbody: suoprogsspec Lo declarativesfpart BEGIN 
seqSofSstmts END id ';' 
= {printf(" {| subprogSbody \n")7} 7 


opt .lS.declarativeg$part.: 
= {printf (" : 
\n")7} 


; IS declarativeSpart 
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opt.IS.declarativedspart. 





mm ;) 3 


modsspec: 


ept.id. 


modsnatures: 


modSbody: 


cl ai 


mocevisdliist.: 


meviss |} 


visSrestriction: 


fste~5ename.: 


motst.d. 


mesplist: ‘(° 


useSclause: USE 


mod$nature 


modSnature 


Name 


= {printf (" 


id 


= {printfC(" 


PACKAGE 


som imt t ¢" 


BODY 


{printf (" 


{printf (" 


st 
=s1oriunt fC" 


RESTRICTED 


{printf(” 


ferint fC" 


name. ‘',' 


= {printf (" 


= Apeintt(” 
name 


= {print fC" 


fst.e5.name. 


opt.IS.declarativespart. 


+; modsSspec \n"*)7} > 


; mod$nature \n")7} 3 


Is declarativespart 


| modSbody \n")3} 3 


name 


fst.3.ename. 


mOopteViSo11St.e  \n’);} 

pmOOeCVUNSSTiSt. “ NN" Jo} 7 

oot.visslist. 

| visSrestriction \n")3} 

ete tasename. \\n*)>} 

purses mamame.. Nn") 7) 3 
yet 

i; visSlist \n")7} 7 

‘ useSclause \n")7} ; 
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oot.iS.declarativespart. 


END 


END 
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ARPreENOLT AX ¢ 


Parse Table 


This Appendix illustrates the output of the YACC 
program used to manually interoret YACC'sS parse tables. This 


file is produced using the "=- v" option of YACC. 


state 0 


Saccept : ecompilationsSunit Send 
optevisSrestriction. : ¢ (2) 
RESTRICTED shift 4 
e freduce 2 
compilationSunit goto 1 
opt.evisSrestriction. goto 2 
vis$restriction goto 3 
State 1! 
S$accept : compilationsunitesend 
$end accept 
. error 
state 2 
compilationsSunit : 
opt.vissrestriction.topt SEPARATE. unitS$body 
Ser. SEPARATE. : ¢ (4) 


SEPARATE shift 6 
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state 3 


state 4 


state 5 


e reduce 4 
OPt. SEPARATE. aoto 5S 
optevViSSrestrictione 3° 


- reduce $3 


Mmissrestriction 3° 
opt.evisSlist. 3: ¢ (198) 
Coxshift 9 

e reduce 198 
optevissliste goto 7 
visSlist goto 8 


comojlationsunit : 


opt eSEPARATE.f€unitSbody 


FUNCTION shift 18 


PACKAGE shift 17 
PROCEDURE shift 19 
© error 

unitSbody goto 190 
subprogSbody goto 11 
modispec goto le 
mod$body goto 13 


sSubprogSspec goto 14 
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RESTRICTEDeopt.vissSiist. 


opt.evissrestriction. 
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) 


subprogsnature goto 16 


modSnature goto 15 


state 
SPItsoeEARATE. $ SEPARATES (5) 
e reduce 5 
state 
wusoRnestfiction :; RESTRICTED opt.visSlist.¢ (200) 
e reduce 200 
state 
opt.evisSlist. =: visSliste¢ (199) 
« reduce 199 
state 
visSlist : (name fst.S.name. ) 
ya shi ft el 
a error 
name goto 20 
suborog$arraySvar goto 22 
selectedScomp goto 23 
predefinedSattri goto 24 
State 10 
compilationSunit : opt.vissrestriction. 
Opt.eSEPARATE. unit S$bodye (1) 
» reduce tit 
State 11 
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jirutapegat lana 
*. Ped thaw | > 
t ais) 


- 


unitSbody : subprogS$bodye Cire) 

ae meauce ive 
state le 

unitSbody : mod$spece Ci 73) 

- reduce 173 
state 13 

unitSodvody : modS$bodye (174) 

» reduce 174 
state 14 

suberogibody : suborogispecelS declaratives$part BE@- 
GIN seqSofS3stmts END id ; 

io shift ¢5 

er ror 
state 15 

mod$soec ;: modinaturetid opt.IS.declarativesoart. 
END opt.id. 


mod$body : mod$naturee+BQDY id IS declarativesSpart 


BODY shift e7 
id shift 26 
° error 
state 16 
subprogispec - subproginatureedesignator 


opt.eformalSpart. opt RETURN.typeSmark. 
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Hor eshitt <9 
- @rror 
designator goto 28 

state 17 
mod$nature : PACKAGEe (196) 
- reduce 196 

state 18 
suboroginature =: FUNCTIONe (180) 
~ reduce 180 

state 19 
subproginature =: PROCEDURE’! (181) 
»- reduce 181 

State 20 
selectedicomp : namet. id 
predefinedSattri 2: namee' id 
SuobDrogsarrayivar : namee( expr fst.5.exor. ) 
visSlist : (€ nameefst.d.name. ) 
fst.S.name. :3 ¢ (201) 
( shift 32 
- shift 30 
marsh t 34 
- reduce 201 
fst.S.name. goto 33 


State 21 
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name : ide (58) 
- reduce 58 
state 2c 
name 3: subprogSarraySvare (59) 
- reduce 59 
state 23 
name s selectediscompe (60) 
« reduce 60 
State 24 
name : predefinedSattri¢ (61) 
- reduce 61 
State 25 
suborogsS$body : suoprogispec [SedeclarativeSpart BE- 
GIN seqsof3stnts END id ; 
opt.useiclause. 3 ¢ (164) 
USE shift 37 
« reduce 164 
opt.euseSclause. goto 35 
useSclause goto 36 
declarativeSpart goto 34 
State 26 
mod$spec :; modSnature ideopt.IS.declarativespart. 
END opt.id. 


opt-eIS.declarativeSpart. : ¢ (193) 
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1* hbase 24408 | 


IS shift 39 
‘ reduce 193 


Setelo.declarativespart. goto 38 


state e/7 

modSbody : mod$nature BODYeid IS declarativespart 
END id = 

id shift 40 

error 
State 28 

subprogsspec : subprogsnature 


designatorteopt.formalipart. oot .RETURN.typeSmark. 
opt.formalsoart. 3: ¢ io) 
( shift 43 
» reduce 175 
opt.formal3part. goto 41 
formalSpart goto 42 

Strate ¢9 
designator : ide (182) 
- reduce 18e 

State 30 
selectedicomp : name .eid 
id shift 44 
° error 


State 31 
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ot a4A0gbe 3 


*\eedeages PONTE. 068 4 


rete) “5 ~eghleeral <3 
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oredefinedSattri : name ‘tid 
id shift 45 
e error 
state 3c 
SsubprogsarraySvar : name (texor fst.S.expr. ) 
opteunaryS$op. : ¢ cei) 
NOT shift 53 
mee amite >! 
s=seshift Se 
- reduce 81 
exor goto 46 
Simoles$expr goto 48 
rel goto 47 
opteunarytop. goto 49 
unarysop goto 50 
state 33 
fsteS.name. = fst.5.Name.t, Name 
visslist : (€ name fst.5.name.¢) 
) shift 55 
, shift 54 
e error 
State 34 
subprogs$body : suberogsspec 


declarativesSoart¢BEGIN seaqfofSstmts END id ; 
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€ 


cre, a ee 





simzer + eteps, £1B 


we 


Seon Siitt 36 


se error 
state 35 

declarativeSpart 4 opt.use$clause.e¢fst.decl. 
mat.bDOdy. 

fst.decl. : ¢ (166) 


- feduce 166 
mse.ceel. goto 5/7 
state 36 
opteuseSclause.e. : useiSclausete C165) 
os) reduce 165 
state 3/7 
useiclause : USEt¢name fst.5.name. 
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opt CONSTANT. : ¢ (9) 
CONSTANT shift 209 
« reduce 9 
oept.eCONSTANT. goto 208 


state 158 


typeSdec!l :; TYPE idelIS typeSdefn 
IS shift 210 
fee rverror 

state 159 


modSbody : modinature BODY ig IS 


ENDeid ; 
me shift ell 
» error 
state 160 


fst.S.-parasdecl. 3° 
id shift 66 


e (Mp ate Fl gs 


hese 


fst.S5.parasdecl. 


CYDeG Ob t ae. eX Orn. 


declarativeisipart 


reparastdec | 





id$list goto 65 
para$idec! goto ele 
state 16i 
formalSpart  : ( para$dec! fst.$.parasdec!. je 
(185) 
» reduce 185 
state 162 
parasSdec!l : idSlist : modeetypeSmark opt.$.expr,. 
oe shift cl 
e error 
typeSimark goto e13 
name goto 107 
subprog$arraySivar goto 22 
selectedScomp goto 23 
predefined$Sattri goto 24 
state 163 
mode : opt.IN.e (189) 
- reduce 189 
state 164 
mode : QUTe (190) 
e reduce 190 
State 165 
opt.IN. : INe (188) 


mode 3: INeQuf 


ke 5 





OUT shift 214 
e reduce 188 
state 166 
aude Cuma TStsD.1G. »€3d 
id shift 215 
e error 
State 167 
fst.S.expr. 3: fst.eS.expr. -» expre 
expr 3 exprelogiop re} 
AND shift 69 
OR shift 70 
XOR shift 71 
« reduce 68 
log$o0p goto 68 


state 168 


rel : simpletexor opt.NOT. IN rangee 


; reduce 77 


state 169 


rel : simpletexpr opt.NOT. IN typeSmarkeopt.constr. 


opt.constr. 3: ¢ (74) 
RANGE shift 219 

e reduce 74 

constr goto 217 


rangeSconstr goto 218 


124 


(68) 


(77) 
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oe 













x ! 
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Ad + 2. oS8a 


ee ¢0t0@ 





3o eceber | 
ti4 ede@ “99 
nts 908 


COweconstr. Goto ¢c1l6 
state 1/70 
range : rangesSidte.. sioplesexor 
eo» shift 220 
- error 
state i/1 
rangeSid : ide (27) 
mame : ide (50) 
oe reduce 2/7 
=> reduce 2/7 
+ reduce 27 
- feduce 58 
state i/e 
rangeSid =: lite (28) 
» reduce 28 
State 173 
fst.addingtop.tero. : st. acoingqroo.venmn. 
addingSopeterm 
id shift el 
num shift 89 
char$str shift 90 
Geerstiy ie 7 i 
° error 


name goto 8/7 


125 


state 


state 


Soate 


state 


1 


Geto, 35 


aggr goto &6 


pry 


goto 84 


subprog$arraysSvar 


selectedicomo 


oredefinedSattri 


var 


qdeco oc 


term goto 221 


fac 
174 
add 
175 
add 
176 
add 
177 
fst 
id 


num 


goto 8&3 


Ingiop ° +¢ 


reduce 103 


INgGsSOop : we 


reduce 104 


IngSop $s &¢ 


reduce 105 


emulttoo.face °* 
shift 21 


shift 89 


charSstr shift 90 


( 


shift 91 


goto ee 


goto 23 


goto 24 


(103) 


(104) 


(105) 


fst CMO1ts00.f ac. 


126 


multSopefac 


a 6t tee ‘go PT ne bt ee Iu 





state 


state 


state 


state 


state 


cr nor 


name goto 87 


InNpcen goto oS 


aggr goto 86 


pri goto 84 


subprogsarraysivar 


selectedScomp 


predefined$attri 


var goto 88 

ocEGOLO ecc 
178 

multSop 3 *¢ 

- reduce 109 
179 

mult$Sop 3: /¢ 

» reduce 110 
180 

mult$op 3: MODe 

» reduce 111 
181 

var 3: name. A 

« reduce 66 
182 


fst.S5.comosassoce ° 


goto ee 
goto 23 


goto 24 


(CS) 


(110) 


ee), 


LLe (66) 
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fStaceCOomprassoc.«, 


comp$assoc 





, 
oy) 

sé 
Dale 

rn 

ay 

‘a 

2°26 


a) 


aggr : ( como$assoc fst.35.compf$assoc.¢) 
) shift 224 
peeesnvtc ces 
. error 
state 183 
fsteS.choice. 3: fst.S.choice.€: choice 
compgsassoc : restrichoice fst.3.choice.e=> exor 


=> shift 226 


; shift 225 
error 
State 184 
compsSassoc $ pri opt.elst.3.choice..5.exor.¢ (49) 


e reduce 49 
state 185 
motaeechovce. > ifst.s.,choice.¢; choice 
Gecesist.s.choice. jSeexor. : fst.S.choice.¢?> expr 
=> shift e227 
© shift 225 
error 
State 186 
disc$range : typeSmark RANGEerange 
Var snift e229 
num shift 89 


chargsstr shift 90 
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» error 
range goto 228 
rangesdid goto 170 
ie Gato «172 
state 187 
subprogSbody : subprogispec [S declarativedSpart BE- 
GIN seqSof$stmts END ide; 
, shift 230 
- error 
state 188 
stmt °¢ << id¢>> stmt 


>> shift 231 


- error 
State 189 
stmt 3: error ;¢ (F160 


» reduce 118 

state 190 
simpleSstmt = NULL ;e Gres) 
- reduce 125 

state 191 
assignmentSstmt 3: var 3:=¢expr ; 
opteunaryS$op. : ©€ (81) 


NOT shift 53 


+ shift 5l 


eo 


= 
-_ 


i 
smeav? eve heen. Oh, 





est toe 
- reduce 61 
expe goto 23ec 
simolefexpr goto 48 
Pel goto 47 
opteunary$op. goto 49 
unarys$op goto 50 

state 192 
assignmentSstmt : name :=¢expr 7; 
opteunarysSop. : ¢ (81) 
NOT shift 53 
fest ft 51 
- shift Se 
- reduce 81 
expr goto 233 
simole$exor goto 48 
rel goto 47 
opteunary$op. goto 49 
unarysoo goto 50 

state 193 
subprogscallistmt : mame ;7¢ Crs) 
« reduce i351 

State 194 


exitsstmt : EXI? ect. idseopt .WHEN.cond. ; 
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> 7 





4.0 On. (aceatrigtap T8923 


Set aninicN.conGa. > © (159) 
WHEN shift 235 
« reduce 159 
opt.eWHEN.cond. goto 234 
seate 195 
return$stmt : RETURN opt.expr.¢; 
meesiitt 250 
e error 
State 196 
expr 3: exprt¢logtop rel 
opteexor. & expre (133) 
AND shift 69 
OR shift 70 
XOR shift 71 
« reduce 133 
logiop goto 68 
State 197 
gotoSstmt : GOTO ide; 
shift ¢3/7 
e error 
State 198 
assert3stmt =: ASSERT conde, 
5 BShift 238 


* error 
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aaa 


ry a 


Beate 199 
exor : expreloggsop re} 
cond : exprefst.cond$ext. 
fst.condSext. 3 ¢ €140) 
AND shift 69 
OR shift 70 
MOR shift 71 
- reduce 140 
log$o0p goto 68 
fst.econddext. goto 239 
state 200 
if$stmt : ee condeTHEN seqsofiSstmts 


mete LOLlLF .cond.tHEN.seqtofSstots. opt.-ELSE.seqiofistmts. END 


cr 3 
THEN shift 240 
° error 

state 201 


exor 3 exprelogiop re) 

caseSstmt : CASE exoredr 
fst WHEN.choice..lst.S.choice..d.seqsofistmts. END CASE 

AND shift 69 

OF shift 241 

OR shift 70 


XOR shift 71 


13e 





. error 
lognoee goto 6c 
state ¢e0e 
loopSstmt : opt.iterSspec. basicSloope (150) 
« reduce 150 
state 203 
basicSloop : LOOPeseqSofistmts END LOOP opt.id. ; 
Pstestmt. < © Clive) 
»« reduce ile 
fst.stmt. goto 94 
seqtofistmts goto 242 
state 204 
iter$spec : FOR JoopSparaeIN opt.REVERSE. discirange 
IN shift 243 
. error 
Scate 205 


ide (158) 


looet$para 
e reduce 158 
state 206 
iter$spec : WHILE conde Glial) 
« reduce 157 
state 20/7 
body : opt.evissSrestriction. unitibodye C171) 


° reduce 1/71 


133 





state 208 
Soyodec! « 'dsitst =: opt.CONSTANT.¢tyoe opt.$.expr. ; 
id shift 21 
e error 
type goto 244 
typeSmark goto 245 
name goto 107 
subprogSarray$var goto 22 
selected$comp goto 23 
oredefinedSattri goto 24 
state 209 
opteCONSTANT. : CONSTANTe (10) 
« reduce 10 
state 210 
type$decl] : TYPE id IS¢typeSdefn ; 
ARRAY shift 253 
RANGE shift 219 
RECORD shift 254 
eeeshift 251 
e error 
typeidefn goto 246 
enumStypeSdefn goto 247 
intStypeS$defn goto 248 


arrayitypeSdefn goto 249 


134 





recordstypeSdefn goto 250 
rangesconstr goto 25e 
state 2il 


mod$body : modinature BODY id IS deciarativeipart 


END ide; 

geeesnift 255 

e error 
state ele 

fst.-$.paraidecl. ; fst.S.o0araidec!. ». paraiSdeci¢ 
(184) 


« reduce 184 
state 213 
paras$dec!l : idSiist * mode typedmarktopt.S.exor. 
opt.eS.expr. 3 ¢ (11) 
= shift 257 
- reduce ii 
opt.eS.expr. goto 256 
State 214 
mode : IN OUT«e (191) 
- reduce 191 
State 215 
fomettaGes €St.deide -¢ ide (15) 
« reduce 15 


State 216 


LSD 





re | : simpleSexor opt. NOT. 


opt.constr.¢ 7 8) 
« reduce 78 
state e217 
ept.constr. =: constre CTASTY 
« reduce 75 
state 218 
constr : rangesSconstre (23) 
- reduce 23 
state 219 
rangeS$constr : RANGEerange 
id shift 2e9 
num shift 89 
charSstr shift 90 
° error 
range goto 258 
rangeSid goto 170 
lit goto l7e 


state 220 


range 3; rangeSid .e¢simplesexpr 


opt-eunarysSop. : ¢ (81) 
NOT shift 53 
+ shift Si 


= shift Se 
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IN 


typeimark 





. reduce 6! 

simoles$expr goto 259 

opteunarysop. goto 49 

unarysSop goto 50 
state eel 

fst.adding$op.term. 3: fst.addingfop.term. addingsoo 
terme (84) 

- reduce 84 
State 22e 

fst.multSop.fac. ; fst.multsiop.fac. multsiop face 
(87) 

« reduce 87 
state 223 

fst.5.compsassoc. =: fst.s-compsassoc. »-tecompsassoc 

SRR ERS es smitt les 

id shift ei 

num shift 89 

charS$str shift 90 

Gershitt 91 

. error 

typeSmark goto 125 

name goto 124 

lnetmeegoto } 85 


disc$range goto ide 


eS 





sfcro- @, «.sneseteneuclades 


Tat 


como$assoc goto 260 
aggr goto 86 
restr$cnhoice goto 120 
pri goto iel 
suborogS$arrayivar goto 22 
selected$Scomp goto 23 
oredefinedSattri goto 24 
var goto 88 
state 224 
aggr : ( comp$assoc fst.3.-compsassoc.e. )e (43) 
- reduce 43 
State ec5 
fioteereemoirce, > fSt.dS.choice. ;€choice 
OTHERS shift 123 
fee shift “171 
num shift 89 
char$str shift 90 
. error 
typesSmark goto 1c¢5 
name goto 107 
rangesSid goto c6e 
lit goto t7e 
dise$range goto i2de 


choice goto 261 
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restrichoice goto 263 
SubprogSarraytvar goto ee 
selectedicomp goto 23 
predefinedSattri goto 24 
state 226 
compSassoc : restrichoice fst.$.choice. =>eexpor 
opt.unarySop. 3 € (81) 
NOT shift 53 
+ shift Sl 
see shift Se 
- reduce 61 
exor goto 264 
SsimpleS$expr goto 48 
rel goto 4/7 
opteunary$op. goto 49 
unarySop goto 50 
state ec/7 
Set..,ist.ds.choice..dsexor. = fst.S.choice. =>e«expr 
opt.eunarysSop. 3: ¢ (81) 
NOT shift 53 
+ shift Sil 
= shift 52 
- reduce 81 


expr goto 265 





simolefexor goto 48 
re | goto 47 
opt.eunarysone. goto 49 
unarysSoo0 goto 50 
state 2c8 
disc$range : tyroesdmark RANGE rangest (40) 
- reduce 40 
state 229 
rangeSid : ide (27) 
« reduce 2/7 
state 230 
suboprogs$body : subprog$soec IS declarativetipart sE@- 
GIN seaqSof3stmts END id ;¢ (192) 
« reduce 192 
state 231 
stmt 3: << id >>estmt 
opt.iter$ispec. : © (148) 
error shift 131 
ASSERT shift 147 
CASE shift 149 
EXIT shift 144 
muKeesmitt Le 
GOTO shift 146 


IF shift 148 


140 





NUEE sasha tt 56 

RETURN shift 145 

WEEE shift 153 
nemmeshift el 

<< shift 130 

- reduce 148 

name goto 143 
subprogsarrayivar goto eed 
selected$comp goto 23 
oredefinedSattri goto 24 
var goto 142 

stmt goto 266 
simpleSstmt goto 1ic8 
compound$stmt goto 129 
assignmentS$stmt goto 13e 
suoprog$calli$stmt goto 133 
exitSstmt goto 1534 
returnSstmt goto 1355 
gototstmt goto 136 
assert$stmt goto 137 
if$stmt goto 139 
case$stmt goto 140 
loop$stmt goto i41 


opt.iterSspec. goto 1590 


141 





iterSspec goto 151 
state 232 
expr $s expréelogsop re! 
assignment$stmt : var := expre; 
AND shift 69 
OR shift 70 
XOR shift 71 
pearshitte 267 
e error = 
log$o0o goto 68 
state 253 
expr 3: exprtlogiop re] 
assignment$stmt 3: name := expre; 
AND shift 69 
OR shift 70 
XOR shift 71 
,; shift 268 
» error 
NOGhOD Goto 68 
state 234 
exitSstmt : EXIT opt.id. opt. WHEN.cond.¢, 
; shift 269 
error 


state 235 


142 














—————— es = 


opt.WHEN.cond. =: WHENecond 
opt.eunaryfop. 3 ¢ (81) 
NOT shift 53 
tf shift 5! 
= shift 5e 
» reduce 81 
expr goto 199 
simpleSexopr goto 48 
re} goto 4/7 
aocsdmanySsoo. goto 49 
unarysop goto 50 
eond goto c/0 
State 236 
returnSstmt 3: RETURN opt.expr. 7¢ 
« reduce 134 
meate c5/ 
gotoSstmt : GOTO id se (162) 
« reduce 162 


State 238 


assertSstmt 3: ASSERT cond ;e (163) 


~ reduce 163 


State 239 


rsa) 


fst.condSext. 3: fst.conddext .¢condsext 


cond 3; expr fst.condSext.¢ (142) 


143 





ANOsIheEN shaft 272 
Sheetoc shift e735 
- reduce 142 
cond$gext goto 271 
state 240 
ifSstmt : IF cond THENeseasofistmts 


metecLolF.cond.THEN.seaSofistmts. opt. ELSE.seaqtofistmts. END 


IF ; 
fst.stmt. : ¢€ (112) 
e reduce lie 
fst.estmt. goto 94 
seqhbof$stmts goto 274 
state 241 


caseSstmt : CASE exor 
OFe fst WHEN.choice.-ist.Sechoice..S.-seqhofistmts. END CASE 


fSt WHEN. choice..ist.S5.choice..3S.seqsofistmts. : - 


(145) 

- feduce 145 

fst WHEN. choice..ist.3.choice..S.seqsofistmts. goto 
275 
state 24e 


basicSloop : LOOP seqSofistmtseEND LOOP opt.id. ; 
END shift 276 


® eh 


144 





state 243 
iter$spec : FOR loopSpara INeopt.REVERSE. discSrange 
SPtLeREVERSE. +: © (154) 
REVERSE shift 278 
« reduce 154 
SStC.sREVERSE. goto ec77 
state 244 
obj$decl : idStist : opt.CONSTANT. typetopt.5.exor. ; 
opt.S.expr. 3 ¢ C11) 
s= shift 257 
- reduce Iii 
opt.eS.expr. goto 279 
state 245 
tyoe : typeSmarke Cine) 
© reduce 17 
state 246 
typeidec!l : TYPE id IS typeSdefne; 


r, shift 280 


e error 
State 24/7 
tyoeSidefn : enumStyoeSdefne (18) 


" reduce 18 


state 248 


type$defn : intStyoeidefne (19) 


145 





« reduce 19 
state 249 
type$defn : arrayS$tyoeidefne (20) 
e reduce 20 
state 250 
typesSdefn : recordStypeidefne C219) 
« reduce el 
state 251 
enums$typoesidefn ¢ (eenumSlit », fsteenumsSlit. ) 
id shift 28e 
charSstr shift 283 
° error 
enumSlit goto 28l 
state 252¢ 
intStype$defn : rangeSconstre (34) 
- reduce 34 
state 253 
arrayStypeSdefn : ARRAYe( index fst.3.index. sO 
typesmark ; 
( shift 284 
se rror 
state 254 
recordStypeSdefn 3: RECORDecompsSlist END RECORD 


fst.objSdecl]. $: ¢€ (55) 


196 





» reduce 55 
comeslist goto 285 
fsteobdjs$dec!l. goto 286 
erate <55 
mod$body =: modinature BODY id IS declarativeipart 
eee id 7+ C197) 
- reduce 197 
state 256 
para$idec!i : idSlist * mode typeimark opt.d.expr.¢ 
(186) 
« reduce 186 
State 257 
opt.S.exor. 3 %=texpr 
opteunaryfop,. 3: ¢ (81) 
NOT shift 53 
Tee Ssnift >| 
- shift 52 
- reduce 81 
expr goto 28/7 
simopleSexpr goto 48 
rel goto 4/7 
opteunarys$op. goto 49 
unmarysSop goto 50 


state 258 


147 





state 


state 


(42) 


state 


state 


State 


state 


(48) 


rangeiconstr : RANGE ranget (25) 
e reduce 25 
259 
range : rangeSid ..- simplesSexore (26) 
- reduce 26 
260 


fst.S.e-compsSassoc.e 3 fst.5-compsassoce +» comps$assoce 


« reduce Se 
261 
fsteapechnolgel + fst.S.choice. 1; choicet (45) 
- reduce 45 
262 
choice : rangeSide (S52) 
- reduce 52 
263 
choice : prestrichoicet (53) 
« reduce 53 


264 


comp$assoc 3: restrichoice fSteoecnoice. => expre 


expr $ exprelogiop rel 


AND shift 69 


COR shift 70 


148 





XOR shift 71 
- reduce 48 
log$op goto 68 
State 265 
opt..ist.S.choice..S.expr. 3 fst.eS.choice. => exprt 
(47) 
expr s exprtelog$op rel 
AND shift 69 
OR shift 70 
XOR shift 71 
« reduce 47 
logtop goto 68 
state 266 
stmt °¢ << id >> stmte CLL 7) 
« reduce 117 
state 267 
assignmentS3stmt : var $= expr 7¢ (129) 
« reduce 129 


State 268 


assignmentSstmt : name expr ;7¢ C150) 


e¢ 


e reduce 130 
State 269 
exitSdstmt : EXIT opt.id. opt.WHEN.cond. ;7¢ (161) 


e reduce 161 


149 





state 270 
Get -NnENCcomd. 2: WHEN conde (1600) 
« reduce 160 

state 271 
fst.conddSext. s fst.condSext. cond$Sexte (141) 
- reduce 141 

state 2/2 
condg$ext : AND.THENeexpr 
opteunafys$op. $ ©& (81) 
NOT shift 53 
femshift 51 
= shift 5e 
« reduce 81 
expr goto 288 
simpleSexpr goto 48 
rel goto 47 
opteunarySop. goto 49 
unarysop goto 50 

state 273 
cond$ext : OR.ELSEtexpr 
opt.unary$op. $3 ¢ (81) 
NOT shift 53 
roeshi ft Si 


- shift 5Se 


150 





wee ceduce 61 

exor goto 289 

simolesSexpr goto 48 

rel goto 47 

opteunarys$op. goto 49 

unarysop goto 50 
state 274 

ifgstmt 4 fete cond THEN 
seqtiofSstmtsefst ELSIF .cond.THEN.seqiofistmts. 
opt ELSE.seqsofistmts. END IF ; 

fst ELSIF .cond.THEN.seqtofistmts. : ¢ (lies) 

se fecuce 135 

Motewecloir .cond. IHREN.seqtofistmts. goto 290 
State 275 

fst WHEN.choice..ist.S.choice..S.seqsofistmts. 
fst WHEN. choice..ist.5.choice..d.seqsofistmts.eWHEN choice 
fste$.choice. => seqsofistmts 

casesstmt : CASE exor OF 
fSt .WHEN.choice..ist.5.choice..S.seqsofistmts.e¢END CASE 

END shift 292 

WHEN shift 291 

° error 
State 276 


basicSloop : LOOP seaqthof3Sstmts ENDeELOOP opt.id. ; 


151 





ECOP shi tt 
7 error 
state e/7 
iterSspec ; 
idm Ssaiftt 21 
. error 
typesmark 


name 


discSrange 


subprogtiarraySvar 
selectedicomp 


predefinedsSattri 


state 2/78 


opt.REVERSE. 


gos 


FOR loopS$para IN opt. REVERSE.¢discSrange 


goto 125 
goto 107 


goto 294 


Gectorecec 


goto 23 


goto 24 


ene veonoe n>.) 


4 reduce 155 


state 279 


objySdec! : 


, Shift 295 


e error 
state 280 

typeidec! ; 

« reduce 24 


State 281 


enumS$typeSdefn °: 


190Slist $: opt.CONSTANT. type opt.S.expr.e; 


TYPE id IS typeSdefn ;7¢ (24) 


( enumSlite, fst.eenumSlit. ) 


1Se 





yee onite -c76 
error 
state 28e 
enumSlit 3 ide (32) 
« reduce $e 
Beate ¢93 
enumSlit 3: chardSstre (55) 
- reduce 33 
State 284 
arrayStypeS$defn 3: ARRAY (eindex fst.S.index. ) 
typeSmark +; 
foeeeshift el 
- error 
typeSmark goto 299 
name goto 107 
imdex goto ¢97 
disc$range goto 298 
SuborogSarrayivar goto ee 
selectedScomp goto 23 
oredefinedSattri goto 24 
eeate 285 
recordStypeSdefn : RECORD compSlisteEND RECORD 
END shift 300 


@ cFEEOF 


153 





state 286 
fst.objideci. : fst.objidecl.tobj$dec! 
comoSlist : fst.obj$decl.e 7) 
id shift 66 
« reduce 57 
obj$dec!l goto 301 
idSlist goto 100 
state 28/7 
Got~websexor. 5 $= expre (12) 
exor : exprelogiop rel 
AND shift 69 
OR shift 70 
XOR shift 71 
« Reduce ile 
logSop goto 68 
state 288 
expr 3: exprelogtop rel 
cond$ext : AND.THEN expre (143) 
AND shift 69 
OR shift 70 
XOR shift 71 
« reduce 143 
log$o0p goto 68 


State 289 


154 





expr $: exprelog$op rel 

Gomavpext 9. UOR.ELGE @xpre (144) 
AND shift 69 

OR shift 70 

XOR shift 71 

- reduce 144 


togso0p goto 68 


state 290 
fst ELSIF .cond.THEN.seqsSofistmts. : 
fSt ELSIF .cond.JHEN.seqiSofiSstmts.eELSIF cond THEN 


seqiofistmts 

ifSstmt : IF cond THEN seqsofistmts 
fst ELSIF.cond.THEN.seqSofistmts.eopr.-ELSE.seqiofistmts. END 
IF ; 

MoteclLoe.seqoofrsstmts. 3 ©& (137) 

ELSE shift 304 

BESIE shift 3502 

« reduce 137 

opt ELSE.sea$of3stmts. goto 303 
state 291 

fst WHEN. choice..-ist.S.choice..S.seqiofistmts. : 
fst WHEN. choice..lst.S.choice..$.seqiofistmts. WHENechoice 
fsteS3.choice. => seqsofistmts 


OTHERomeshitt. 123 


i> 





id 
num 


charsstr 


typeSmark 
name 
rangesid 
lit 
disc$range 


choice 


shat (174 


Shift 89 


et ror 


goto l/7e 


restr3choice 


goto 107 


shift 90 


goto 125 


goto 262 


goto lee 


goto 305 


goto 263 


subprogsarraySvar goto 2e 


selectedicomp 


goto 23 


predefinedSattri goto 24 


State 292 


casesstmt 


: CASE exor 


fst WHEN.choice..lst.5.echoice..S.-seqsofsstmts. END|ECASE 


CASE 


State 293 


error 


basicSloop : 


Opt.)id.0> € 


id 


shift 104 


reduce 151 


shift 306 


LOOP seqSofSstmts END LOOPteopt.id. 


(151) 


156 


e 
, 


OF 





Oot.ia. Goto 5NF/ 


State 294 
iterSspec : FOR loopspara IN OOt sme VERGE. 
disc$rangee (156) 


reduce 156 


state 295 


objs$dec! 3: VomlySot 9. sODt. CONSTANT. tyoe oot.S.exor. 


r¢ Gis) 
- reduce 13 
state 296 
enumStype$defn : ( enum$lit ,~efst.enumSlit. 
fst.enum$lit. 3: ¢ (29) 
- reduce 29 
fsteenumSlit. goto 308 
Stace ¢97 
arrayStypeSdefn : ARRAY (€ indexefst.S.index. 
tyoeSmark ; 
fst.S.index. : ©& C35) 
- reduce 35 
fst.S.index. goto 309 
state 298 
index $s: discS$rangee (38) 


° reduce 38 


State 299 


157 


) 


) 


OF 





index : typeSmarke 39) 
disc$range : tyoeSmark*RANGE range 
RANGE shift 186 

« teduce 39 


state 300 


recordsStypeSdefn =: RECORD compslist ENDeRECORD 


RECORD shift 310 

e error 
state 301 

fst.odjidec!. : fst.eobjidec!. objidecle 

- reduce 56 
state 30e 

fst ELSIF .cond.THEN.seqiofistmts. 
fst ELSIF .cond.THEN.seqSofSstmts. So lEeecomd 
seqsofistmts 

opteunarys$op. : ¢ (81) 

NOT shift 53 

teeeshift 51 

= shift Se 

- reduce 81 

expr goto 199 

simpoleSexpr goto 48 

rel goto 47 


opteunary$op. goto 49 


158 


(56) 


THEN 





Uunaryacp “goto 50 
Sond gotos1 1 
state 303 
ifdstmt : IF cond THEN seqtiofistmts 
fst ELSIF .cond.THEN.seqtof3stmts. opt-ELSE.seqsofistmts.¢END 
at 3 
END shift 312 
. error 
state 304 
opt ELSE.seqsofistmts. 3: ELSEt¢seqhofistmts 
fst.estmt. 3: © C112) 
- reduce lie 
fst.stmt. goto 94 
seqsSofistmts goto 313 
state 305 


fst WHEN. choice..-lst.S5.choice..-S.-seqsofistmts. 


fst .WHEN.choice..lst.S.choice..S.seqiofistmts. WHEN 
choiceefst.S.choice. => seqhofistmts 

fst.$.choice. : ¢ (44) 

» reduce 44 

fst.-$.choice. goto 314 
state 306 

caseS$stmt : Ca sie expr OF 


fst WHEN.choice.-lst.Sechoicee.S-Sseqsofsstmts. END CASEe 


to? 





(147) 
» reduce 147 


state 30/7 


basicS$loop : LOOP seq$ofSstmts END LOOP opt.id.e; 


yee SNVtt 315 
* error 
state 308 
fsteenumSlit. 3: fst.eenumSlit.eenumSlit 
enumStyoeSdefn = ( enum$Slit , fst.enum$lit.¢) 
Var shytt 26¢c 
char3str shift 283 
mers ft 317 
error 
enum$lit goto 316 
state 309 
fst.3.index. 3 fst.$S.index.¢, index 
arrayStypeS$defn : ARRAY ( index fst.3-index.¢) 
typeSmark ; 
eshte S19 
, shift 318 
» error 


state 310 


OF 


recordstypesidefn $ RECORD compSlist END RECORDe 


(54) 
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; reduce 54 


state 311 
fst -eLSirfecond.THEN.seasofsstnts. : 
fst ELSIF .cond.THEN.seaqSofistmts. ELSIF Conde THEN 


seasofistmts 


THEN shift 320 


e error 
state 3le 

ifSstmt : IF cond THEN seqiofistmts 
PetseELoIF .cond.THEN.seqiofistmts. opt ELSE.seqiofistmts. 


END¢e¢IF ; 


Pe» shift Sel 


. error 
state 313 
Boece CleSeE,seasofsstmts. $¢ ELSE s@aqSofistmtse (138) 


« reduce 138 
state 314 

faterecnotces : fst.S.choice.¢; choice 

fst WHEN.choice..ilst.S.cnoice..5.seqhofistmts. : 
fS5t WHEN. choice..jst.S$.choice..$.seqsofSstmts. WHEN choice 
fst.$.choice.e=> seqsofistmts 

=> shift 3e2e 

1 Shift 225 


° error 
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state 


353) 


state 


state 


£31) 


state 


sD 


basicSloop : LOOP seqSof3stmts END LOOP opt.id. , © 


4 reduce 153 


316 


fsteenum$Slit. : fst.enumsSlit. enumslite (30) 


‘ reduce 30 


317 


enum$typeSdefn : ( enumSlit ’ fst.enumSlit. )e 


° reduce 31 


318 


fst.S.index. ©: fst.d.index. ,e1ndex 
Tos any tt 2 l | 

e error 

typeSmark goto 299 

name goto 107 

index goto 323 

discirange goto 298 
SubOrog$arrayivar goto 22 
selected$icome goto 23 


predefinedSattri goto 24 


state 319 


arrayStypeSdefn : ARRAY ( index fst.S.index. )¢OF 
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typedmark 7 
Gr  vushitt 324 
e error 
state 320 


fst ELSIF.cona.THEN.seaqSofSstmts. 


fst. ELSIF .cond.fHEN.seqtofistmts. ibs ie cond 
THENeseqsofistmts 

fSteatmt. 3 ¢ Cie) 

« reduce ile 

fst.estmt. goto 94 

seqsofSstmts goto 325 
state 3e1 

ifSstmt : IF cond THEN seqtofistmts 


Pst -ELSIF .cond.THEN.seaq$ofistmts. opt-ELSE.seaSofiSstmts. END 


IFe; 
, shift 326 
° error 
state 322 
fst WHEN. choice..ist.5.choice..$.seqhtofistmts. : 


fst WHEN. choice..ist.3.choice..3.seqhofistmts. WHEN choice 
fst.S.choice. =>«seqhofistmts 

fst.estmt. 3 ¢ Cile2) 

« reduce ile 


fst.estmt. goto 94 
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seqtbof3stmts goto 327 
state 323 
fsteS.index. © fsSt.Seindex. » indexe¢ (Bey), 
« reduce 36 
state 324 
arraystypesSdefn 3; ARRAY ( index fst.S.index. ) 
OFetypeSmark ; 
id shift el 
© error 
typeSmark goto 328 
mame goto 10/7 
subprogsarray$var goto ee 
selectea$comp goto 23 


predefinedSattri goto 24 


state 325 

fst ELSIF .cond.THEN.seqSofistmts. : 
fst ELSIF .cond.THEN.seqsSofistmts. Boke cond THEN 
seqsofistmtse (136) 


» feduce 136 
state 326 

if$stmt : ie cond THEN seqsofistmts 
fst ELSIF .cond.THEN.seqhSofSstmts. opt ELSE.seqsofistmts. END 
fr 7 (139) 


a reduce 139 
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erace 32/7 
fst WHEN.choice..ist.3.choice..s.seqiofistmts. : 
fst WHEN.choice..lst.$.choice..s.seqsofistmts. WHEN choice 
fst.$.choice. => seqhsofistmtse (146) 
- reduce 146 
state 328 
arraystypeSdefn 3: ARRAY ( index fst.S.-index. ) OF 
typeimarke; 
, Shift 329 
mm Lerror 
state 329 
arrayStypeS$defn 3: ARRAY ( index fst.S.index. ) OF 
typeimark ;7©¢ (37) 
- reduce 37 
71/95 terminals, 1137150 nonterminals 
205/250 grammar rules, 330/475 states 
0 shift/reducer 0 reduce/reduce conflicts reported 
113/150 working sets used 
memory: states,etc. 2118/4000, parser 458/15090 
230/250 distinct lookahead sets 
404 extra closures 
330 shift entries, 12 exceptions 
193 goto entries 


203 entries saved by goto default 


Lo 





Ootimizer space used: input 935/4000, outout 3800/1500 
380 table entries, 0 zero 


maximum spread: 256, maximum offsets 324 
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APPENDIX D 


Test Programs and Outputs 


This Appendix illustrates the scanner/parser actions 
accomplished by this thesis. The test programs were written 
to include the syntactic constructs of Ada/MCS and to fully 
exercise the capibilities of the parser and scanner. The 
first four orograms include the output of the scanner/parser 
in order to demonstrate the output format. The final six 
programs are orovided with no output. Fhe odd numbered opro- 
grams are syntactically correct and each orogram is followed 


by a Similar orogram with an error included. 
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Program one 


FUNCTION sin IS 


BEGIN 


END sin; 


FOR x IN 2 RANGE 1..10 


LOOP 


END LOOP; 


cos(x,y), 


RETURN x 3 
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Output one 


14 


54 


18 


13 


54 


7 


54 


; FUNCTION 

opt. visirestriction. 

opt SEPARATE. 

subproginature 

; sin 

designator 

lS 

opt.formalSoart. 

opt RETURN. typeSmark. 

subprogsspec 

BEGIN 

opt.usesclause. 

fst.decl. 

fst.dvody. 

declarativespart 
fst.stmt. 

; FOR 

; x 

loops$oara 

; IN 

2 


opt REVERSE. 


Ve? 





__2estevi tats 
otmtae 3 








; name 
e9 | RANGE 


; typesSmark 


B> + | 

1 lit 

: rangesid 
71 5 ee 
eee; 10 


; opteunarySop. 
; dit 
» er} 
; fac 
; fstemultioo.fac. 
19 ; LOOP 
+ term 
+ fst.addingsop.term. 
+ simpleSexpr 
; range 
+ discSrange 
+ iterSspec 
; opt.iterSspec. 


; fst .stmt. 
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1=360 096) 


'_ 


=e 
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70 


54 


92 


i 2a 
opteunarysSop. 


name 


fac 
fst.emultSop.fac. 
term 
fst.addings$op.term. 


addingsoo 


ori 

fac 

fst.multSoo.fac. 

term 

fst.addingiop.tern. 
simpleS$exor 
opt.erelalsSop.simplesexor. 
re} 

exor 


assignmentSstmt 


re 





O19 s ie 





7 






- 
__s9et. co? Teme 

oo ae 

ove) -aoton! bid. 
vaeeke las 

4 etn tannecqod latent 


a 





: 

+ 

raead tneangh . 
A, 






$4 


79 


54 


8e 


simoleSstmt 
stmt 
fst.stmt. 

; END 
seqsofistmts 

Pee OP 

1? 
opt.id. 
basicilooo 
loop$stmt 
compoundsstmt 
stmt 
fst.stmt. 

; cos 

name 


( 


x 
opt.eunarysop. 


name 


fst.emultSoo.fac. 


term 


ieee 










50%. G08 9 fue. 


- 





j ' = 5 


54 


80 


fst .addingiop.tern. 
simoletexpr 
opt.relal3op.simplesexpr,. 
re] 

expr 

fst.S.expr. 

Y 
opt.eunarysop. 


name 


fst.multioo.fac. 

term 

fst.addingtiop.term. 
simplesexor 
opt.relalioo.simplesexpr. 
re] 

expr 

#St.5.ExPP. 
subprogsSarrayis$var 


name 


subprogs$callistmt 
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% 


«Soreat 
snetwaseal 


te 281169 


bc 


$4 


78 


11 


simplesSstmt 
stmt 
fst.estmte 


RETURN 


x 
opt.eunarysop. 
name 
1? 
ori 
fac 
fst.multSoo.fac. 
term 
fst.addingSop.term. 
simoletexor 
opt.erelalS$oor.simpletexpr. 
rel 
exor 
opt.exor. 
returnistmt 
simpledstmt 
stmt 
fst.stmt. 
; END 


seaqsofSstmts 
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subprogibody 
unitsoody 


compilationsSunit 
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Program two 


FUNCTION sin IS 


BEGIN 
FOR x IN 
Cost x,y) 
RETURN x 
END ? sin; 


_ OOP 


END LOOP; 
; 


v 


ie 


D7 







amen ee 


ip«ed 
4704 
a ee 
‘9804 GHD 
Vtiandeos 
. # Mauda 


Output two 


14 


54 


18 


3 


54 


17 
54 


+ FUNCTION 
opt.evissrestriction. 
pet. cEPARATE. 
subproginature 

; sin 
designator 

i; IS 
opt.formalipart. 
opt RETURN. typeSmark. 
subprogispec 
BEGIN 
opteuseiclause. 
fst.decl. 
fst.body. 
declarativeSpart 

fst.stmt. 

mer OR 

in) x 
loop$para 

: IN 

» 2 


SPt.REVERSE. 
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-otum! sheave 
af 








, 
— — 


: ; 
A 
7 (Be 


= 


—Finakevisenals 






~~ 


-_ 
_ 
«3°79 > 
; 
a 


/ name 
29 | RANGE 


; typesdmark 


55; | 
; lit 
+ rangesid 
a 
ao y 10 


' opteunarySop. 


1 Pr) 
mtac 
: fst.emulttSoo.fac. 
19 ; LOOP 
; term 
i fsteaddingtop.term. 
+ simoleSexor 
+ range 
; discS$range 
: iterS$spec 
; opt.iterSspec. 


mee fst.stmt. 
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70 


54 


92 


54 


78 


; 3 
oot.unarysopo. 


name 


mst.multSoo.fac. 
term 
fsteaddingtSop.term. 


addingsoo 


ori 

fac 

fst.multSoo.fac. 

term 

fst.addingtop.term. 
simplesexor 
opt.erelalton.simplefexor. 
re | 

exor 


assignmentistmt 


eS 





cists oelacentt elas 





11 


ro 


78 


54 


79 


54 


82 


simpleSstmt 
stmt 
fst.stmt. 

; END 
seqsofistmts 

; LOOP 

1 oF 
opteid. 
DasicSloop 
loop$stmt 
compound$stmt 
Stmt 
fst.stmt. 

; cos 

name 

+ 

so x 

opt.eunarySop. 


name 


fstemultSoo.fac. 


term 


180 





<p 


fst.addingsop.termn. 
simolesexor 
opt.erelalSop.simolesSexor. 
re} 
expr 
fst.d.exor. 

4 
opt.eunaryiop. 


name 


fst.multiop.fac. 

term 

fst.~addingSop.term. 
simplesexor 
opt.erelalSop.simplesSexpor. 
re] 

expr 

fst.S.exor. 
subprogsarraysvar 


name 


subprogscallistmt 


Lot 
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54 


78 


Simplesdstmt 
stme 
mst.Stmt. 


1 RETURN 


x 
opt.eunarysop. 
name 
1 2 
pri 
fac 
fst.multSoo.fac. 
term 
fsteaddingsop.term. 
simplesSexor 
opt.erelalSop.simpleSexor. 
re | 
expr 
opt.exor. 
returnistmet 
simpleidstmt 
Stmt 
fst.stmt. 
1 END 


seqsof$stmts 


oie 





ae 


- "9? -eodgnibbe. 


—— 





> y 


= _ 








elqeetelanie.gotion 


7 7 






al 7 


Scanner errorsunknown symboo! 


94 ¢ sin 

yo, + 
' subprogSbody 
, unit$body 


' compilationSsunit 
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Program three 


PACKAGE test [5S 
PYPE sls RANGE’ ] .. 10 ; 
Pree tc 1S RECORD 
yater, idferi, idfere : s-; 
END RECORD; 
idl 3 ty 
TYPE set IS ARRAY (Cred,yellow,blue) OF colors; 
primary 3: set», 
TYPE victor IS (whiskey, foxtrot); 


END test 
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Output three 


co? | PACKAGE 
' opt evisSrestriction. 
' opt. SEPARATE. 


' modSnature 


54 ; test 
leon, IS 
36 | TYPE 


opt.eusestclause. 


, fst.decl. 
94 3: 8 
18 ; IS 
29 4; RANGE 
b> . | 

1 dit 

; rangetid 
el} fe 
Bo; «610 


; opteunarysopo. 
» Jit 

; pri 

+ fac 


fefst.multSoo.fac. 


fo5 





36 
54 
18 


30 


54 


82 


54 


ele 


54 


term 
fst.addingsop.term. 
simplesexpor 
range 
rangetconstr 
intStypesdefn 
typeSdefn 
types$dec|] 
dec | 
fst.decl. 
mYPE 

t 

Les 

RECORD 
fst.objSideci. 
idfer 
fst.3S.id. 

j 

idferl 
fst.S.id. 

, 

idfere 


tS eS .ef! CG « 
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91 


54 


Bl 


30 


78 


54 


91 


‘oe 

idSlist 

| s 

opt CONSTANT. 
name 

1? 

tyoesmar 
type 
opt.d.expor. 
obj idec!} 
fst.objSdecl. 
+ END 
compslist 

+ RECORD 
recordstyoesdefn 
typeidefn 

tof 

types$dec | 
dec | 


foe.cec|. 


idSlist 
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+ opt CONSTANT. 
; name 
78 3 3 
+ typeSmark 
1 type 


: opt.$.exore 


+ objSdec] 
1 decl 
; fst.dec!. 
Boe, FYPE 
54 4; set 
me; «6©6LS 
3 {| ARRAY 
vo) 
54 | red 
+ name 
82 ts 
1 typesSmark 
+ index 


' #st.$eindex. 
54 : yellow 


; name 
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80 
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23 


54 


78 


54 


91 


54 


typesdmark 

index 
fst.S.index. 

: blue 

name 

i) 

typesmark 

index 
fst.5.index. 

- Oe 

mecolors 

name 

+o? 

typedsSmark 
arrayStypesidefn 
type3defn 
typeisdec | 

dec] 

fst.decl. 

1 primary 


T™St.$.1d. 


idSlist 


( set 
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7 tebtenyys J 
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78 


opt CONSTANT. 
name 

1 3 

typesmark 
type 
opt.3.expr. 
obj sdec | 

dec] 
fst.decl. 

mr YPE 

i victor 

» IS 

i ¢ 

; whiskey 
enumSlit 

io 
fsteenumslit. 
pecoxtrot 
enumSlit 
fsteenumSlit. 
i) 

enumst yoesdefn 


typesdefn 
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11 


94 


typesdec |] 

dec | 

fst.decl. 
; END 

fst.body. 
declarativeSpart 
oot.IS.declarativesSpart. 
+ test 

opt.id. 
modispec 
unitSbody 


compilationsunit 


Ho 


ada 





Program 


PACKAGE 


END test 


rour 


test IS 

itee S Lo ORANGE 1 7. 10 ; 

i eeete lS RECORD 

idfer, idferl, idfered : s; 

END RECORD; 

idl : ti 

TYPE set IS ARRAY(red,yellow,od)lue) OF 
primary $: set; 

TYPE victor IS (whiskey, foxtrot); 


v 
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colors; 
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Woeout four 


eo7 | PACKAGE 
' optevisSrestriction. 
' opt SEPARATE. 


' modSnature 


54 +; test 
rs ; IS 
Soe, FYPE 


opt.eusesclause. 


; fstedecl. 
5 
18 ; IS 
29 + RANGE 
5) ae 

weer it 

» rangesid 
V1 ot ee 
Bo, 10 


' opteunarysop. 
eit 
» pri 
» fac 


merse.multsoo.fac. 
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36 
54 
18 


30 


54 


8e 


54 


54 


1 term 
| fst.addingSop.term,. 
+ simplesSexor 
1 range 
+ rangesSconstr 
+ intStypeSdefn 
+ typesSdefn 
1 typesdec! 
meaec | 
; fst.deci. 

f TYPE 

; ¢ 

LS 

+ RECORD 


fst.objSdec!. 


' jdfer 


TSC cael! Oe 


¢ 0 


' idferl 


fst. S.id. 
¢ tf 
' idfere2 


met St sds 1-6 
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54 


78 


11 


30 


78 


54 


ohh 


idSlist 

= Ss 
oept.CONSTANT. 
name 

io? 

typeimark 
type 
opt.S.exor. 
obj sdec! 
fst.ooj$decl. 
PEND 
compSlist 
Pere CORD 
recordsStypesdefn 
typesdefn 

1? 

typesdec] 
dec | 
fst.decl. 

; idl 
fst.$S.id. 


idSlist 
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741/489 


nbahieg 


Be 


54 


Be 


opt. CONSTANT. 


name 


typeSmark 
type 
opt.S.expr. 
obj Sdec| 
dec] 
fst.decl. 
Parr e 

i set 


PSs. 


typesmark 
index 
fst.3.-index. 
; yellow 

name 


4 
4 , 
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54 


80 


typesimark 
index 
fst.-S3.1Ndex. 

; oOlue 

name 

1+) 

typeimark 
index 
fst.S.1Ndex. 

Ur 

; colors 

name 

1 

typesdmark 
arrayStypeidefn 
typeSdefn 
tyoesdec | 

dec | 

fst.decl. 


; primary 


este held. 
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78 


36 


$4 


opt .CONSTANT. 
name 

; 
typesSmark 
type 
opt.S.exor. 
obj; Sdec! 
dec | 
fst.edecl. 
PrPe 

victor 

ts 

( 

whiskey 
enumslit 

’ 
fst.enum$lit. 
foxtrot 
enum$ iit 
fsteenumslit. 
) 
enumitypeidefn 


typesdefn 
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11 


54 


78 


tycpesdec |] 
dec] 

fst.decl. 
+; END 

fst.body. 
declarativesSpart 
opt I[S.declarativeSpart. 
; test 

opt.id. 
modSspec 

unit Soody 
compilationsunit 


° 
t g 


Syntax error 
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Program five 


PROCEDURE testeit IS 
@rabortingr abo: integer, 


TYPE t IS ARRAY(x RANGE 1..10- y RANGE 


a@:= l16#3ab/7; 
Bet= “this 1S a character string."3 == 
abo := 6,5E=<4; 


END testeit ; 
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OF float; 
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Program six 


PROCEDURE testeit IS 


ar,aborting, abo: integer; 


TYPE t IS array(x RANGE 1..10, y RANGE 1..3) 


amatrix $ t, 
BEGIN 
a := 1643Sab/; 


b s= “this 1s a character string.”"; == 


END testeit ; 
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OF float; 
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Program seven 


PROCEDURE idfer IS 
TYPE t IS ARRAY (subscript RANGE number..number) OF 
idfer, idfer : idfer; 


idfer : CONSTANT t; 


idfer := number * number MOD idfer; 


IF number THEN 
idfer := number; 
END IF; 
EXIT WHEN (number); 
idfer := charestring; -- comment 
ENO LOOP; 


END idfer ; 
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Program eight 


PROCEDURE idfer [S$ 


TYPE t IS ARRAY (SUubSCcript RANGE number.enumber) OF 


idfer, idfer : idfer; 


idfer : CONSTANT t; 


BEGIN 


idfer number * number MOD 
LOOP 
IF number THEN 

idfer := number; 
END IF 
EXIT WHEN (number); 
idfer :? charestring; 
END LOOP; 


END idfer ; 


aus 


1dfer,; 


== Comment 


1afer, 
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Program nine 


PROCEDURE test IS 


idfer, idferl, idfere : s; 


BEGIN 
CASE a < b OF 
WHEN number => 
aszs=ctadZ/e,; 
ENO CASE; 
END test > 
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Program ten 


PROCEDURE test IS 


idfer, idferl, idfere : s; 


BEGIN 
CASE a < 6b OF 
arz=crtdZf/es 
END CASE; 
END test ; 
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